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SECTION  I 
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INTRODUCTION 

This  document  consists  of  the  final  report  prepared  in-house  by  the  Air 
Force  Avionics  Laboratory,  AFAL/AAD,  Wright-Patterson  AFB,  Ohio,  under 
Work  Unit  12271217,  entitled  Avionics  Lab  Rooftop  Antenna  Pointing  Program. 

1.1  Oblective  of  the  Program.  In  March  1976  the  Lincoln  Experimental 
Satellites,  LES  8 and  LES  9,  were  launched  into  earth  orbit.  Operating  in 
the  UHF  and  Ka  bands,  these  communications  satellites  are  the  forebearers 
of  the  next  generation  of  the  AFSAT  communications  satellites  being 
developed  for  the  Air  Force's  Advanced  Airborne  Command  Post.  The 
Satellite  Communications  Group  of  the  Air  Force  Avionics  Laboratory  has 
been  tasked  with  testing  of  the  various  satellite  configurations.  To 
perform  the  testing,  a complete  communication  system  was  installed  in  the 
Rooftop  Facility  atop  the  Avionics  Laboratory,  Building  620,  Wright- 
Patterson  AFB.  A complete  system  was  also  installed  in  a C135  aircraft, 
so  that  airborne  testing  could  be  performed.  The  aircraft  has  a three-foot 
antenna  for  K-Band  communications,  while  the  Rooftop  utilizes  a ten-foot 
parabolic  dish  antenna,  with  a 3 db  beam  width  of  only  two-tenths  of  a 
degree.  Location  and  passive  tracking  of  the  satellites  from  the  Rooftop, 
without  some  form  of  computer  control,  would  be  virtually  Impossible.  It 
is  to  meet  this  need  for  exact  antenna  pointing  that  the  Rooftop  Antenna 
Pointing  Program  was  developed. 

1.2  Implementation.  To  point  the  ten-foot  dish,  located  atop  the 
Rooftop  Facility  (see  Figure  1) , a Digital  Equipment  Corporation  PDP  11/45 
minicomputer  was  purchased  and  Interfaced  with  the  antenna's  servo  control 
system.  The  Rooftop  Antenna  Pointing  Program  (RAPP)  and  associated  programs 
were  written,  and  occupy  approximately  48,000  words  of  core  memory.  RAPP 


operates  under  the  RSX  11-D  Realtime  Operating  System,  which  occupies 
another  24,000  words  of  memory,  for  a total  of  approximately  72,000  words. 
Normal  CPU  loading  is  only  five  percent  of  available  CPU  time.  However, 
peak  loading  can  run  up  to  100%  for  periods  of  two  to  three  minutes  at  a 
time.  RAPP  is  general  enough  for  use  with  any  satellite  for  which  proper 
ephemeris  data  is  available. 

1.3  Contents  of  This  Report.  This  report  consists  of  four  sections. 
Section  II  consists  of  a description  of  the  various  programs  associated 
with  RAPP.  Section  III  contains  listings  of  the  RAPP  programs.  Section  IV 
consists  of  an  operator's  guide  and  fault  finding  chart  for  the  RAPP  user. 
Sections  II  and  IV  assume  that  the  reader  is  familiar  with  FORTRAN,  in 
addition  to  the  instruction  set  of  the  Digital  Equipment  Corp.  PDP  11/45. 

A knowledge  of  RSX  11-D  and  DOS  is  also  assumed. 
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SECTION  II 
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ROOFTOP  ANTENNA  POINTING  PROGRAM  DESCRIPTION 


2.1  Hardware  Introduction.  The  hardware  consists  of  a PDP  11/45 
minicomputer  with  the  following  peripherals;  40,000  words  of  core  memory, 
32,000  words  of  MOS  memory,  2.4  million  words  of  disk  memory,  20  million 
words  of  magnetic  tape  memory,  a card  reader,  a line  printer,  and  a 
DECWRITER.  In  addition,  a VT05  video  display  terminal  is  located  in  the 
Rooftop  Facility.  The  antenna  servos,  a Crosslink  Ranging  Receiver  and 

a VA^VB  Receiver,  are  Interfaced  with  the  11/45  via  DRll-C  general  device 
interfaces.  Figure  2 illustrates  the  hardware  configuration. 

2.2  Detailed  Description  of  the  Hardware: 

2.2.1  DEC  Hardware.  Most  of  the  hardware  is  standard  Digital 


Equipment  Corporation  (DEC)  equipment,  and  need  not  be  discussed  in  detail. 

The  following  list  provides  a breakdown  of  the  DEC  equipment : 

KBll-A  11/45  CPU 

FPll-B  Floating  Point  Unit 

RK05  Disk  Drives  (2  ea) 

MSll  32K  of  MOS  Memory 

MMll  40K  of  Core  Memory 

KWll-P  Real  Time  Clock 

LA36  Data  Terminal 

VT05  CRT  Display 

CRll  Card  Reader 

LPll  Line  Printer 

TV10  Magnetic  Tape  Unit 

In  addition  to  the  DEC  equipment,  three  additional  pieces  of  hardware  are 
Interfaced  with  the  11/45  via  DRll-C  general  device  Interfaces.  They  are 
the  Antenna  Control  Interface  Unit,  the  Crosslink  Ranging  Receiver,  and 
the  WWVB  Receiver. 

2.2.2  Antenna  Control  Interface  Unit.  The  Antenna  Control 
Interface  Unit  (ACIU)  was  built  by  the  Raytheon  Company  as  part  of  the 
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Ka-Band  Rooftop  Antenna  Subsystem  for  Contract  F33615-74-C-4012.  It 
consists  of  a power  supp.'.y,  two  digital  to  analog  converters,  and  two 
synchro  to  digital  converters.  Its  function  is  to  convert  digital  pointing 
error  commands  as  supplied  by  RAPP  into  analog  azimuth  and  elevation  error 
commands  to  the  ten-foot  antenna  synchros.  It  also  converts  the  analog 
azimuth  and  elevation  voltages  from  the  antenna  servos  into  sixteen  bit 
digital  words,  for  use  by  RAPP  in  generating  the  aforementioned  error 
commands.  Figure  3 is  a schematic  representation  of  the  ACIU. 

2. 2. 2.1  11/45  to  ACIU  Interface.  In  the  following 
discussion,  all  I/O  is  with  respect  to  the  ACIU. 

2. 2. 2. 2 ACIU  Inputs.  The  desired  azimuth  and  elevation 
error  commands  for  the  antenna  servos  are  input  to  the  ACIU  from  the  11/45 
via  two  DRll-C  general  data  interfaces  and  two  D/A  converters  (see  Figure  4). 
The  Analog  Devices  DAC-12QM  D/A  converters  used  handle  a twelve-bit 
(.00549325  degree  LSB)  data  input  word,  provide  a 10  volt  output,  and 
utilize  an  offset  binary  code.  A thirteenth  line  strobes  the  digital  data 
from  the  DRll-C  into  the  DAC-12QM.  Protocol  is  as  follows:  One  of  the 

RAPP  subroutines  transfers  a twelve-bit  digital  error  command  to  the  output 
buffer  of  the  appropriate  DRll-C.  DRll-C  output  buffer  address  767752  is 
used  for  the  elevation,  while  address  767762  is  used  for  the  azimuth.  Once 
the  program  has  loaded  the  error  command  to  the  output  buffer,  a positive 
going  pulse  (NEW  DATA  READY)  is  sent  out  to  the  appropriate  D/A  converter 
by  the  11/45.  The  trailing  edge  of  this  pulse  strobes  the  data  from  the 
DRll-C  output  buffer  into  the  D/A  converter. 

The  offset  binary  code  used  by  the  D/A  converters  requires  an  "all 
zeros"  digital  word  for  a +10  volt  analog  output.  An  "all  ones"  digital 
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word  results  in  a -10  volt  output.  Octal  4000,  midway  between  "all  zeros" 
and  "all  ones",  results  in  a zero  analog  output.  In  actual  practice,  full 
10  volt  output  is  not  used.  The  software  limits  the  digital  error  command 
word  so  that  the  magnitude  of  the  peak  analog  voltage  output  by  the  D/A 
converter  is  1.56  volts.  This  causes  the  antenna  to  move  more  slowly, 
thereby  minimizing  overshoot. 

2. 2. 2. 3  ACIU  Outputs.  The  antenna  azimuth  and  elevation 
angles  are  output  via  two  Data  Device  Corporation  A-Serles  Synchro  to 
Digital  Converters.  In  each  case,  a 16-blt  two's  complement  digital  word 
is  provided  to  the  11/45,  with  the  least  significant  bit  being  .00549325 
of  a degree.  A seventeenth  line  is  used  as  a HOLD  for  each  S/D  converter. 
When  the  11/45  sets  this  line  LOW,  sampling  by  the  S/D  converter  is 
Inhibited.  This  allows  the  11/45  to  receive  a complete  and  correct  digital 
word.  Once  the  word  has  been  input,  the  11/45  sets  the  HOLD  line  HIGH  to 
allow  sampling  to  continue. 

2.2.3  Crosslink  Ranging  Receiver.  The  Crosslink  Ranging 
Receiver,  as  supplied  by  Lincoln  Laboratory,  permits  precise  ranging  to 
the  satellite.  Without  going  into  detail,  let  it  suffice  that  two  16-bit 
words,  which  represent  the  path  delay  to  the  satellite,  are  provided  to 
the  11/45  from  the  Crosslink  Receiver.  DRll-C  address  767774  is  used  to 
input  the  data.  Specific  details  may  be  obtained  from  a number  of  memos 
and  reports  listed  in  the  bibliography. 

2.2.4  WWVB  Receiver.  Since  the  satellites'  positions  vary 
with  the  time  of  day,  some  means  of  obtaining  an  accurate  time  of  day  is 
necessary.  To  meet  this  need,  a WWVB  Receiver  was  purchased  and  then 
Interfaced  with  the  11/45  under  Contract  F33615-75-C-1222.  Time  of  day 


(+30  msec)  is  supplied  to  RAPP  as  two  16-blt  words  via  DRll-C  address 
Specific  details  may  be  obtained  from  Technical  Report 
AFAL-TR-76-145. 
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2.3  Software  Introduction.  The  Rooftop  Antenna  Pointing  Program 


(RAPP)  runs  on  the  PDP  11/45  computer  under  the  RSX-110  Operating  System. 
Ephemerls  data,  as  supplied  periodically  by  Lincoln  Laboratory,  contains 
the  coefficients  for  a three-dimensional,  ninth  order  curve  fit  of  the 
orbits  of  LES  8 and  LES  9.  Using  this  data,  with  time  as  the  independent 
variable,  RAPP  can  point  the  ten-foot  dish  at  either  satellite. 

Both  satellites  are  in  geosynchronous  orbits,  inclined  approximately 
23  degrees  to  the  equator.  This  inclination  causes  the  satellites  to 
appear  to  move  in  "figure  8"  patterns  over  a 24-hour  period,  with  the 
center  of  the  "8"  occurring  over  the  earth's  equator.  Therefore,  it  is 
important  that  RAPP  be  provided  the  correct  date  and  exact  time  of  day 
in  order  to  accurately  point  to  the  desired  satellite. 

Of  the  fourteen  RSX  tasks  which  are  a part  of  RAPP,  seven  are  involved 
in  actual  antenna  pointing,  while  the  others  are  support  programs.  Four 
additional  support  programs  operate  under  the  Disk  Operating  System  (DOS) . 

Unique  aspects  of  RAPP  are  the  use  of  a common  memory  block,  the 
automatic  installation  of  all  antenna  pointing  tasks  and  support  tasks, 
and  the  handling  of  ephemerls  data.  The  implementation  of  these  unique 
aspects,  along  with  the  RSX  tasks  and  DOS  programs,  make  up  the  software 
of  the  Rooftop  Antenna  Pointing  Program. 

2.4  Detailed  Description  of  the  Software; 

2.4.1  Common  Memory.  In  order  to  minimize  the  amount  of  memory 
required,  a common  area  is  set  aside  on  the  RSX  disk  for  all  constants  and 
variables  used  by  RAPP.  Additional  common  area  is  also  set  aside  for  any 
future  expansion  of  the  program.  FDUMl  and  FDUM2  are  available  for  floating 
point  variables,  while  IDl^Ml  and  IDUM2  are  available  for  integers.  The 
common  area  file  is  entitled  BLODAT.FTN  and  is  located  under  user  number  1,1 


on  the  system  disk.  FORTRAN  programs  reference  It  via  COMMON  statements, 
while  Macro  programs  reference  it  via  PSECT. 

2.4.2  Installation  of  Tasks.  Unlike  DOS,  all  RSX  tasks  must  be 
installed  before  being  run.  All  antenna  pointing  support  tasks  may 

be  automatically  installed  by  invocation  of  the  indirect  install  command 
"INS  @INSTL".  File  INSTL.CMD  consists  of  a list  of  tasks  to  be  installed. 
This  provides  a time  saving  method  of  installing  the  tasks. 

2.4.3  Ephemeris  Data  Handling; 

2. 4. 3.1  Ephemeris  Data  Format.  Satellite  ephemeris  data 
is  stored  on  the  system  disk  under  user  number  142,4  as  are  all  user  files. 
File  DAVEM.DAT  contains  the  ephemeris  data  for  both  LES  8 and  LES  9.  The 
data  is  periodically  supplied  to  AFAL  on  a magnetic  tape  reel  by  Lincoln 
Laboratory.  For  any  given  day,  there  are  four  blocks  of  ephemeris  con- 
sisting of  A.M.  (00:00-12:002)  and  P.M.  (12:00-24:002)  data  for  the  two 
satellites.  By  dividing  each  day  into  two  segments,  more  accurate  look- 
angles  can  be  computed.  Figure  5 illustrates  the  format  of  data  for  the 
month  of  March. 

Each  block  of  ephemeris  consists  of  thirty  coefficients  of  the  ninth 
order,  three-dimensional  curve  fit  of  the  satellite's  position  in  earth- 
centered  geocentric  coordinates.  Using  the  time  of  day  as  supplied  by 
the  WWVB  receiver,  RAPP  computes  look-angles  to  the  desired  satellite. 

2. 4. 3. 2 Ephemeris  Data  Transfer.  Before  the  ephemeris 
data  can  be  used  by  RAPP,  it  must  be  transferred  from  Lincoln  Lab's 
magnetic  tape  onto  the  system  disk.  Lincoln  generates  the  ephemeris  data 
on  an  IBM  370  computer.  The  370  transfers  the  data  onto  magnetic  tape 

in  blocks  of  690  words.  Unfortunately,  the  PDP  11/45  transfers  data  off 
the  magnetic  tape  in  blocks  of  only  256  words.  This  means  that  a normal 
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LES  8,  1 March  A.M. 
LES  8,  1 March  P.M. 
LES  8,  2 March  A.M. 


coefficients 

coefficients 

coefficients 


LES  8,  31  March  P.M.  coefficients 
LES  9,  1 March  A.M.  coefficients 
LES  9,  1 March  P.M.  coefficients 

LES  9,  31  March  P.M.  coefficients 


FIGURE  5.  EPHEMERIS  DATA  FORMAT  FOR  MARCH 
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RSX  file  transfer  under  PIP  or  FLX  would  result  in  losing  434  words  (690- 
256)  from  every  block.  Due  to  the  short  time  schedule  and  familiarity 
with  DOS  software.  It  was  decided  to  solve  the  problem  under  DOS  rather 
than  RSX.  This  results  in  a more  complicated  operator  procedure,  but  it 
gets  the  job  done.  DOS  program  PAUL  accomplishes  this  by  use  of  the  TRAN 
macro.  See  paragraph  2. 4. 5. 7 for  a description. 

Once  the  ephemerls  data  has  been  transferred  onto  the  DOS  disk,  it 
must  be  transferred  to  the  RSX  disk  containing  RAPP.  This  is  accomplished 
by  invoking  FLX  under  RSX  after  mounting  the  DOS  disk  as  a foreign  disk. 
Specific  details  are  included  in  paragraph  4.9,  Section  IV.  The  net 
result  is  the  creation  of  RSX  file  DAVEM.DAT,  which  contains  the  LES  8/9 
ephemerls  data. 

2.4.4  Antenna  Pointing  Operational  Software.  Antenna  pointing 
is  accomplished  by  seven  interacting  RSX  tasks.  RAPP,  the  master  task, 
automatically  runs  three  of  the  six  remaining  operational  tasks.  Two 
tasks  associated  with  scanning  the  sky  for  a satellite  are  run  by  the 
operator.  The  seven  operational  tasks  are  summarized  below. 

RAPP  - Run  by  the  operator.  Initializes  all  variables,  inputs  the 
data  cards,  reads  ephemerls  data  off  the  disk,  runs  ASMINT,  DOIT,  and 
RTLOOP . 

ASMINT  - Run  by  RAPP.  Initializes  S/D  and  D/A  converters  used  to 
control  the  ten-foot  dish. 

DOIT  - Run  and  rescheduled  every  200  milliseconds  by  RAPP.  Calculates 
look-angles  to  the  desired  satellite  using  the  ephemerls  data.  Issues 
commands  via  the  D/A  converters  to  point  the  ten-foot  dish  at  the  satellite. 
Monitors  the  antenna  position  via  the  S/D  converters. 
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RTLOOP  - Run  and  rescheduled  every  second  by  RAPP.  Outputs  pointing 
information  (computed  and  measured  azimuths  and  elevations,  computed 
satellite  range  in  kilometers  and  computed  path  delay  in  milliseconds) . 

Runs  DATAIL. 

DATAIL  - Run  by  RTLOOP.  Looks  up  the  appropriate  ephemeris  data 
whenever  it  is  desired  to  change  pointing  to  another  satellite. 

SCAN  - Run  by  operator.  Initializes  conditions  for  starting  a i 

raster  type  scan  of  the  sky.  Run  only  when  difficulty  is  experienced  in 

locating  the  satellite.  Runs  SCANR.  ;; 

SCANR  - Run  by  SCAN.  Performs  a raster  type  scan  by  varying  azimuth 
and  elevation  angles  by  +2-5  degrees  about  the  nominal  pointing. 

2. 4. 4.1  Task  RAPP  Description.  RAPP  is  the  master 
program  and,  as  such,  performs  the  following  functions:  ' 

A.  Initialization  of  all  common  variables 

B.  Hardware  initialization 

C.  Data  card  input  via  the  card  reader 

D.  Buffering  of  current  ephemeris  data  from  the  disk 

E.  Conversion  from  geodetic  to  geocentric  coordinates 

F.  Fixing  of  DOIT  and  RTLOOP  into  memory 

G.  Running  of  DOIT  and  RTLOOP  , 

2. 4. 4. 1.1  Common  Variable  Initialization.  RAPP 

- — — - . m m — — — I.  ■ ■ - ■ 

initializes  all  common  variables  prior  to  use. 

2.4.4. 1.2  Hardware  Initialization.  Hardware 
initialization  is  performed  by  task  ASMINT.  A detailed  description  of 
ASMINT  can  be  found  in  paragraph  2. 4. 4. 2,  Task  ASMINT  Description. 


2.4.4. 1.3  Data  Card  Input  and  Location  of 
Ephemeris.  Before  accurate  pointing  can  begin,  RAPP  must  know  what  day 
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of  the  year  It  is,  which  satellite  is  being  used,  weather  information  to 
correct  for  refraction  error,  and  geographic  location  of  the  antenna.  This 
information  is  contained  on  two  data  cards,  read  by  subroutine  DATAIO.  The 
operator  enters  the  day  of  year  (1=1  January,  365  = 31  December,  etc.), 
the  satellite  being  used  (8  or  9) , the  barometric  pressure  in  inches  of 
mercury,  the  temperature  in  degrees  Fahrenheit,  the  relative  humidity  and 
the  antenna's  latitude  and  longitude. 

Upon  reading  the  data  card,  DATAIO  corrects  the  latitude  for  the 
earth's  oblateness,  then  computes  the  surface  refractivity  of  the  atmos- 
phere. Finally  DATAIO  looks  up  the  current  day's  ephemeris  data  using  a 
direct  disk  access.  Due  to  the  format  of  the  ephemeris  data  (see  Figure  5) , 
it  may  be  necessary  to  read  through  almost  all  the  ephemeris  to  locate  the 
required  day's  data.  Depending  on  the  size  of  the  ephemeris  file,  data 
look-up  can  take  up  to  two  minutes.  Once  the  ephemeris  has  been  located, 
it  is  stored  in  common  memory. 

2. 4. 4. 1.4  Conversion  from  Geodetic  to  Geocentric 
Coordinates.  Geographic  locations  are  entered  in  standard  geodetic  coordi- 
nates. However,  the  ephemeris  data,  as  supplied  by  Lincoln,  contains  the 
coefficients  of  a geocentric  description  of  the  satellite's  position.  Sub- 
routine INITAL  converts  the  antenna  position  from  geodetic  to  geocentric 
coordinates . 

2. 4. 4. 1.5  Fixing  and  Running  of  DOIT  and  RTLOOP . 
The  final  action  of  RAPP  is  to  FIX  and  RUN  the  two  tasks  which  actually  point 
the  antenna.  Both  tasks  are  fixed  in  memory  in  order  to  avoid  reading  the 
tasks  off  the  disk  every  time  they  are  rescheduled.  This  saves  both  CPU  time 
(which  is  now  available  for  other  users)  and  wear  on  the  disk. 

Once  the  tasks  are  fixed,  RAPP  runs  them,  unfixes  Itself  (to  free 

memory)  and  exits. 
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2. 4. 4. 2 Task  ASMINT  Description.  This  task  Is  run  by 


RAPP  to  insure  that  the  DRll  interfaces  are  initialized  prior  to  pointing 
the  antenna.  The  HOLD  lines  to  the  azimuth  and  elevation  S/D  converters 
are  set  HIGH  to  enable  sampling.  The  REQUEST  B line  from  the  WWVB  receiver 
is  checked  to  insure  that  it  is  reset;  if  not,  a dummy  input  is  performed 

which  should  reset  it,  and  it  is  checked  again.  Finally,  "ZERO"  pointing  | 

] 

error  commands  are  output  to  the  antenna  servos.  Due  to  a small  misalign- 
ment in  the  azimuth  D/A  converter,  a 3775  offset  binary  code  is  output  to 
the  azimuth  servos  rather  than  a 4000. 

2.4.4. 3 Task  DOIT  Description.  Task  DOIT,  as  its  name  jj 

implies,  does  the  actual  pointing  of  the  antenna.  Using  the  ephemeris 
data  located  in  common  memory,  it  performs  the  following  functions: 

A.  Inputs  measured  azimuth  and  elevation  from  the  antenna's  servos 
every  200  milliseconds. 

B.  Generates  error  commands  to  the  antenna's  servos  every  200 
milliseconds. 

C.  Computes  a new  look  angle  every  five  seconds. 

2. 4. 4. 3.1  Measured  Look-Angle  Input.  Subroutine 
STaTE  is  called  by  DOIT  to  input  the  current  antenna  look -angle.  The 
procedure  is  to  inhibit  S/D  converter  sampling,  input  the  look-angle,  then 

re-enable  sampling.  Proper  scaling  is  then  accomplished  prior  to  RETITRN.  i ' 

2.4.4. 3.2  Error  Command  Generation.  Subroutine 
PNT  is  called  by  DOIT  to  generate  the  look  angle  error  command.  Before 

an  error  command  can  be  generated,  there  must  be  a reference  system. 

Elevation  is  measured  with  zero  degrees  corresponding  to  the  horizontal 

and  90  degrees  corresponding  to  the  vertical.  Normally,  azimuth  is  | 

measured  with  zero  degrees  corresponding  to  true  north,  90  degrees  is  | 
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east,  etc.  However,  for  reference  purposes  only,  PNT  rotates  the  azimuth 
by  58  degrees  towards  the  northwest,  for  reasons  which  will  be  explained 
in  the  new  look  angle  calculation  description.  It  should  be  understood 
that  this  rotation  is  done  for  the  use  of  PNT  only,  and  does  not  affect 
the  antenna  system's  use  of  a zero  azimuth  corresponding  to  true  north. 

To  perform  the  azimuth  rotation,  59  degrees  is  added  to  both  the 
computed  and  measured  azimuths.  Once  this  has  been  accomplished,  both 
azimuth  and  elevation  errors  are  calculated  by  subtracting  the  measured 
(actual)  values  from  the  calculated  values.  If  the  magnitude  of  either 
error  exceeds  ten  degrees,  a hard  limiting  effect  is  imposed,  as  illus- 
trated in  Figure  6.  This  prevents  the  antenna  servos  from  being  driven 
so  hard  that  overshoot  becomes  a problem.  If  the  magnitude  of  an  error 
command  is  less  than  ten  degrees,  a unique  method  of  generating  the  offset 
binary  code  is  employed.  Recalling  that  a zero  error  command  corresponds 
to  2048  (octal  4000),  and  noting  that  the  LSB  of  the  D/A  converters 
corresponds  to  .03125,  the  decimal  offset  can  be  computed: 

N = (zero  error  command)  x LSB 
= 2048  X .03125  - 64 

Therefore,  any  error  command  can  be  converted  to  the  offset  binary  code 
by  adding  64  and  dividing  the  sum  by  .03125.  Once  the  offset  binary  error 
command  has  been  calculated  for  both  azimuth  and  elevation,  PNT  returns 
control  to  DOIT. 

2 . 4 . 4 . 3 . 3 New  Look  Angle  Calculation  and  Exiting. 
Since  DOIT  is  rescheduled  to  run  every  200  milliseconds,  both  STATE  and 
PNT  are  called  at  the  same  rate.  However,  through  the  use  of  a counter, 
subroutine  ANTENA  is  called  once  every  five  seconds.  Using  the  ephemeris 
data,  Vn^VB  time  of  day  (or  computer  time  instead)  and  the  surface  refractivity 
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FIGURE  6.  ERROR  COMMAND  LIMITING 
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FIGURE  7.  TIME  OF  DAY  WORDS 


constant,  it  calculates  a corrected  look  angle. 
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Subroutine  CTIME  is  called  first  by  ANTENA  to  input  the  current  time 
of  day  from  WWVB  and  to  check  whether  the  A.M.  or  P.M.  ephemeris  data 
buffer  is  to  be  used.  Before  doing  this,  however,  CTIME  calls  TOD. 

Subroutine  TOD  inputs  the  current  time  of  day  from  the  WWVB  receiver 
via  DR-llC  Interface  address  167774.  TOD  sends  out  a one-microsecond 
pulse  via  line  CSRJ)  to  clock  out  the  first  of  the  two  16-blt  words  con- 
taining the  time  of  day.  The  WWVB  receiver  sends  out  a REQUEST  B to  the 
DR-llC  when  the  data  is  ready.  TOD  then  Inputs  the  first  word  and  repeats 
the  process  for  the  second  word.  The  time  of  day  is  now  contained  in  two 
16-bit  words  as  shown  in  Figure  7. 

By  performing  various  multiplications  to  effect  shifts,  TOD  generates 
a floating  point  time  of  day  expressed  in  seconds  past  midnight.  TOD  then 
returns  control  to  CTIME. 

Once  WWVB  time  has  been  determined,  it  is  compared  with  computer  time. 
Since  computer  time  is  set  from  the  WWVB  display,  the  two  should  be  close. 
However,  upon  implementation  of  the  program,  it  was  discovered  that 
occasionally  the  wrong  time  of  day  would  be  loaded  from  the  receiver. 

The  "quick  fix"  was  to  compare  computer  time  with  the  input  from  the  WWVB 
receiver.  If  they  differ  by  more  than  ten  seconds,  computer  time  is  used. 

Once  the  time  of  day  has  been  properly  determined,  CTIME  checks 
whether  it  is  A.M.  or  P.M.,  loads  the  correct  ephemeris  buffer  for  use  by 
ANTENA  in  the  look  angle  calculation,  and  returns  control  to  ANTENA. 

With  the  time  of  day  and  correct  ephemeris  available,  it  is  now 
possible  to  calculate  the  new  look-angle.  An  Iterative  loop  is  used  to 
compute  the  X,  Y,  and  X coordinates  of  the  satellite  position,  u^^lng  the 


following  formula: 
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SAT 


= + X t®  + ...  X2t  + Xj 


^SAT  = V + •••  \ 

^SAT  ° ho^  ' * ' h 

where  X^,  X2,  ...  Zg,  are  the  thirty  coefficients  contained  in  the 
ephemeris  data. 

Using  the  Avionics  Lab  position,  the  look-angle  in  earth  centered 
geocentric  coordinates  is  calculated  next.  However,  with  respect  to  the 
rooftop  antenna  system,  the  Avionics  Lab  is  the  center  of  the  coordinate 
system.  Therefore,  it  is  necessary  to  rotate  the  look-angle  into  Avionics 
Lab  coordinates.  Then,  taking  the  proper  projections  onto  the  local 
(Avionics  Lab)  horizontal  and  vertical  planes,  the  azimuth  and  elevation 
angles  to  the  satellite  can  be  determined.  Since  the  FORTRAN  trigono- 
metric functions  only  apply  to  one  of  four  possible  quadrants,  the 
azimuth  must  be  placed  inside  the  proper  quadrant  (0°-90°,  90°-180°, 
180°-270O,  or  2700-360°). 


Once  the  azimuth  has  been  calculated,  it  must  be  checked  to  insure 
that  the  antenna  is  not  pointed  at  the  15-story  tower,  which  is  a part 
of  Building  620.  Hazardous  levels  of  RF  radiation  could  endanger  per- 
sonnel or  equipment  located  there.  The  "forbidden  zone",  then,  is  any 
azimuth  between  276  and  302  degrees.  DOIT  subroutine  PNT  adds  58  degrees 
to  a calculated  azimuth  in  order  to  rotate  the  edge  of  the  forbidden  zone 
to  the  zero  azimuth  point.  As  mentioned  previously,  this  rotation  is  for 
use  by  PNT  only  and  does  not  affect  the  antenna  system's  reference.  Since 
the  envelope  of  azimuths  used  in  pointing  at  the  satellites  is  between 
90  and  270  degrees,  the  forbidden  zone  will  have  no  effect  during  LES  8/9 
testing. 
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Final  azimuth  and  elevation  angles  are  obtained  by  adding  any  bias 


I 
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terms  (see  task  RTLOOP  description  for  discussion  of  biases) , and  by 
correcting  for  refraction. 

Subroutine  REFCT,  provided  by  Lincoln  Laboratory,  corrects  for 
refraction.  By  an  iterative  process  of  calling  subroutine  DELL  and  adding 
the  correction,  the  calculated  elevation  angle  is  corrected  for  refraction. 

Subroutine  DELL  (also  provided  by  Lincoln  Laboratory)  uses  the  surface 
rafractivity  constant  available  from  DOIT  subroutine  DATAIO  to  provide 
refraction  correction  terms  to  REFCT. 

Upon  correction  of  refraction,  ANTENA  returns  control  to  DOIT,  which 
then  exits.  The  corrected  look  angle  is  now  ready  for  use. 


t 

I 
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2. 4. A. 4 Task  RTLOOP  Description.  RTLOOP  polls  the 


Rooftop  VT05  display  terminal  every  five  seconds  to  determine  if: 

A.  It  is  desired  to  obtain  the  latest  pointing  information. 

B.  It  is  desired  to  Insert  an  azimuth  or  elevation  bias  term. 

C.  It  is  desired  to  change  pointing  to  the  other  satellite. 

2 . 4 • 4 . 4 . 1 Obtaining  Pointing  Information. 

Pointing  information  is  obtained  by  typing  "INFO"  on  the  Rooftop  VT05 
keyboard.  Upon  detecting  the  "I"  in  "INFO",  subroutine  ABOUT  will  display 
the  current  pointing  Information,  as  illustrated  in  Figure  8.  Azimuth  and 
elevation  are  displayed  in  addition  to  ranging  Information.  Range  to  the 
satellite  is  expressed  in  three  different  ways:  decimal  kilometers,  offset 
octal  kilometers,  and  offset  octal  milliseconds.  The  two  octal  formats 
are  generated  for  use  by  personnel  operating  the  Spread  Spectrum  Modem 
Processor  located  in  the  Rooftop  Facility.  Offset  octal  range  in  kilometers 
is  determined  by 

Sk  = Sk  - 

where  R^^^  = Octal  range  in  kilometers 

Rpj^  = Decimal  range  in  kilometers 

Offset  octal  range  in  milliseconds  is  determined  by 

- 131000. 

UW 

where  * Octal  range  in  milliseconds 
un 

Rpj^  • Decimal  range  in  milliseconds 

Decimal  azimuth  and  elevation  error  terms  are  displayed  to  indicate 
any  error  between  the  calculated  and  measured  pointing  angles.  If  the  error 
becomes  unacceptably  large,  the  D/A  converters  in  the  Antenna  Control  Inter- 
face Unit  should  be  adjusted. 
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AZIMUTH^:-  200.762  i 
ELEOATION-  13,673  i 
RANGE-  40239.9  ( 73037)  ' 
PATH  DELAY::--  ( 6074)  J 
AZIMUTH  ERROR=:  200.763  ;j 
ELEOATION  ERROR::=  163.029 


2. 4. 4. 4. 2 Inserting  Bias  Terms.  Several  factors 


can  cause  less  than  exact  pointing.  These  Include  slight  antenna  misalign- 
ment and  poor  orbit  fitting  In  generating  the  ephemerls  data.  Both  can  be 
offset  by  Inserting  bias  terms  on  the  Rooftop  VT05  keyboard.  Azimuth  bias 
Is  Inserted  by  typing  "A",  followed  by  a flve-dlglt  bias  term.  Elevation 
bias  can  likewise  be  entered  by  typing  "E",  then  the  bias  term.  Subroutine 
CONVER,  called  by  AEOUT  will  convert  the  bias  term  Into  the  proper  form  by 
use  In  pointing.  It  does  this  by  scanning  the  five  digit  Input  field  for 
a decimal  point  and  scaling  the  exponent  accordingly.  If  the  bias  term 
exceeds  360  degrees  for  azimuth  or  90  degrees  for  elevation,  an  error 
message  will  be  output  on  the  VT05  display. 

2 . 4 . 4 . 4 . 3 Changing  Satellites  and  Exiting. 

Satellite  pointing  is  changed  by  typing  "L" , then  "8"  or  "9"  as  the  case 
may  be.  Subroutine  AEOUT  detects  the  "L".  If  any  number  other  than  8 or  9 
is  entered,  an  error  message  will  result.  Task  DATAIL  is  run  to  look  up 
the  appropriate  ephemerls,  as  discussed  In  paragraph  2. 4. 4. 5. 

Whether  or  not  DATAIL  is  run,  RTLOOP  then  exits,  completing  one  cycle 
of  antenna  pointing.  RTLOOP  Is  rescheduled  to  run  In  one  second.  A counter 
causes  the  VT05  to  be  polled  once  every  five  times  RTLOOP  Is  run. 

2. 4. 4. 5 Task  DATAIL  Description.  When  DATAIL  Is  run  by 
RTLOOP,  three  things  happen: 

A.  Tasks  DOIT  and  RTLOOP  are  cancelled 

B.  New  ephemerls  Is  looked  up 

C.  Tasks  DOIT  and  RTLOOP  are  rescheduled  at  their  respective  Intervals 

2. 4. 4. 5.1  Cancelling  of  Tasks.  DOIT  and  RTLOOP 
are  cancelled  by  DATAIL  to  inhibit  antenna  pointing,  and  to  provide  maximum 
CPU  time  for  DATAIL  to  look  up  the  ephemerls. 
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2.4.4. 5. 2 Ephemerls  Look-Up.  Since  DATAIL  is 
modified  from  the  RAPP  subroutine  DATAIO,  it  uses  the  same  direct  disk 
access  method  to  look  up  the  ephemerls  data. 

2 . 4 . 4 . 5 . 3 Rescheduling  of  Tasks  and  Exiting. 

Once  the  ephemerls  has  been  located  and  buffered,  DOIT  and  RTLOOP  are 
rescheduled  at  their  respective  intervals.  This  action  allows  pointing 
at  the  new  satellite  to  begin.  DATAIL  then  exits. 

2. 4. 4. 6 Task  SCAN  Description.  Task  SCAN,  in  conjunction 
with  task  SCANR,  provides  the  capability  to  perform  a raster  type  search 
for  the  satellite.  It  is  only  used  when  the  satellite  cannot  be  located 
by  RAPP.  It  can  also  be  used  in  making  antenna  pattern  measurements. 

SCAN  is  run  manually  from  the  DECWRITER,  while  SCANR  is  run  automatically 
by  SCAN.  The  functions  of  SCAN  are: 

A.  Cancellation  of  tasks  DOIT  and  RTLOOP 

B.  Running  of  SCANR  and  Implementation  of  the  Scan 

C.  Cancellation  of  DOIT  and  RTLOOP 

2 . 4 . 4 . 6 . 1 Cancellation  of  DOIT  and  RTLOOP. 

Tasks  DOIT  and  RTLOOP  are  cancelled  to  prevent  Interference  while  SCAN  is 
trying  to  perform  the  raster  scan. 

2. 4. 4. 6. 2 Running  of  SCANR  and  Implementation 
of  the  Scan.  SCAN  runs  task  SCANR  and  reschedules  it  to  run  five  times 
a second.  SCANR  performs  a function  similar  to  task  DOIT,  in  that  it 
utilizes  the  same  subroutines  as  DOIT.  Upon  being  run,  SCAN  prints  "UNABLE 
TO  INITIALIZE  SCAN"  if  for  some  reason  it  is  unable  to  move  the  antenna  to 
within  one  tenth  of  a degree  of  its  desired  starting  location. 

Once  the  antenna  is  in  its  initial  position,  SCAN  passes  successively 
increasing  biases  to  SCANR  in  two-tenth-of-a-degree  steps.  Each  time  SCANR 
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runs  (five  times  per  second),  it  moves  the  antenna  an  additional  two-tenths 


of  a degree  in  azimuth.  Once  five  degrees  of  azimuth  has  been  swept  through, 
SCAN  subtracts  two-tenths  of  a degree  from  the  elevation.  SCANR  then  uses 
this  bias  to  drop  the  elevation.  SCAN  then  passes  increasing,  negative  biases 
to  SCANR  in  two-tenth-of-a-degree  steps,  causing  an  azimuth  sweep  in  the 
other  direction.  The  process  continues  until  a five-degree  square  of  the 
sky  has  been  scanned,  as  illustrated  in  Figure  9. 

Figure  9 is  a simple  illustration,  because  during  the  two  minutes  that 
the  scan  takes,  the  center  of  the  raster  square  is  moving  along  the  path 
of  the  satellite.  In  other  words,  each  azimuth  and  elevation  bias  is  added 
(or  subtracted)  from  the  current  exact  look  angle  to  the  satellite,  rather 
than  to  the  angle  which  existed  when  the  scan  began. 

Coordination  between  SCAN  and  SCANR  is  important,  to  insure  that  SCAN 
passes  the  correct  bias  to  SCANR  at  the  proper  time.  For  this  purpose,  a 
flag  word  is  set  each  time  SCANR  runs.  By  testing  this  flag,  SCAN  either 
waits  for  SCANR  to  run,  or  passes  the  bias  to  SCANR.  As  an  aid  to  the 
operator,  SCAN  prints  "END  OF  ONE  AZIMUTH  SCAN"  on  the  Rooftop  VTf)5  every 
time  an  azimuth  scan  is  completed.  It  also  prints  the  current  azimuth  and 
elevation  every  second  on  the  Rooftop  VT05. 

2. 4. 4. 6. 3 Cancellation  of  SCANR,  Rescheduling 
of  Tasks,  and  Exiting.  Upon  completion  of  the  raster  scan,  SCAN  prints 
"SCAN  COMPLETE"  on  the  Rooftop  VT05.  Task  SCANR  is  then  cancelled.  Task 
DOIT  is  then  rescheduled  to  run  every  12  ticks,  while  task  RTLOOP  is 
rescheduled  to  run  every  second.  This  resumes  the  antenna  pointing.  Prior 
to  exiting,  SCAN  zeros  the  azimuth  and  elevation  biases. 
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l.k.h.l  Task  SCANR  Description.  Task  SCANR  is  identical 


to  task  DOIT,  except  for  three  changes.  While  DOIT  calls  subroutine  ANTENA 
every  five  seconds,  SCANR  calls  a modified  ANTENA  subroutine  (PANTEN)  at  a 
f ive-time-per-second  rate.  The  modification  consists  of  the  addition  of  the 
azimuth  and  elevation  bias  terms,  added  by  use  of  a COMMON  block  (BETAS ) . 

By  calling  PANTEN  every  time  SCANR  runs  (five  times  per  second) , the  raster 
scan  is  able  to  follow  the  motion  of  the  satellite  during  the  two-minute 
scan.  The  third  change  is  the  use  of  the  flag  which  aids  in  the  coordina- 
tion between  SCAN  and  SCANR. 

Except  for  these  three  changes,  the  DOIT  description  may  be  used  as 
a description  for  SCANR. 

2. 4. 4. 8 Operational  Software  Conclusion.  This  completes 
the  description  of  the  operational  software  used  in  pointing  the  Rooftop 
Antenna.  Complete  program  listings  are  included  as  part  of  Section  III. 

By  following  the  descriptions  of  this  section,  along  with  the  information 
in  Section  III,  it  should  be  possible  to  augment  or  modify  any  of  the 
operational  software. 
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2.4.5  Antenna  Pointing  Support  Software.  Six  RSX  tasks  and 
four  DOS  programs  make  up  the  support  software.  RSX  tasks  HAWAII  and 
ALASKA  print  look  angles  to  either  LES  8 or  LES  9 from  any  point  on  the 
earth's  surface.  RSX  task  WRITER  prints  the  current  look  angle  and  the 
calculated  look  angle  when  the  Rooftop  Terminal  is  in  the  Active  Track 
mode.  This  makes  it  possible  to  observe  any  errors  between  the  computed 
and  actual  look  angles.  RSX  task  DATA  lists  the  ephemeris  data  on  the 
line  printer,  for  use  by  TRW  personnel  in  entering  the  ephemeris  by  hand 
into  the  K-Band  Modem  located  in  the  Rooftop.  RSX  task  XLINK  initializes 
a transfer  of  pointing  data  from  the  antenna,  the  Crosslink  Ranging 
Receiver,  and  the  WWVB  receiver  onto  magnetic  tape.  Task  INPUT  is  called 
by  XLINK  to  perform  the  actual  data  input  and  buffering  prior  to  transfer 
onto  tape. 

DOS  programs  RCA  and  TRW  punch  a paper  tape  of  the  ephemeris  data  for 
other  users.  DOS  program  PAUL  transfers  the  ephemeris  data  from  magnetic 
tape  onto  the  disk.  DOS  program  SATSPT  calculates  look  angles  from  any 
point  on  the  earth  to  any  satellite  position,  given  the  satellite  latitude, 
longitude,  and  altitude. 

2. 4. 5.1  Task  HAWAII  Description.  Task  HAWAII  is  so  named 
because  it  was  originally  developed  for  predicting  look  angles  for  a flight 
to  Hawaii.  Task  HAWAII  was  developed  by  making  various  changes  to  RAPP. 

HAWAII  predicts  the  hourly  look-angles  to  either  satellite,  from  any 
point  on  the  earth.  Allowances  were  not  made  for  the  aircraft's  altitude 
since  even  50,000  feet  is  small  compared  to  the  satellites'  altitude.  A 
short  description  follows  of  the  various  changes: 

A.  Changes  to  RAPP 

B.  Changes  to  the  Initialization  routine 
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C.  Changes  to  the  ephemeris  look-up  routine 

D.  Changes  to  the  look-angle  calculation  routine 

E.  Changes  to  the  time-of-day  routine 

2. 4. 5. 1.1  Changes  to  RAPP . The  major  changes 
to  RAPP  involved  providing  for  repetitive  ephemeris  look-up  and  printing 
of  the  look  angles. 

Since  a typical  test  flight  spans  several  days,  the  look-up  of  several 
days'  ephemerides  must  be  allowed  for.  RAPP  is  set  up  to  look  up  one  day's 
ephemeris  at  a time.  If  RAPP's  ephemeris  data  look-up  subroutine  were 
called  more  than  once,  an  error  message  would  result  due  to  the  CALL  ASSIGN 
and  DEFINE  FILE  statements  being  invoked  more  than  once.  Therefore,  these 
two  statements  are  moved  into  HAWAII,  the  main  program.  In  this  way, 
repetitive  ephemeris  look-up  is  allowed  for. 

Once  a look-angle  for  a given  hour  in  a given  day  is  computed,  it  is 
printed  on  the  line  printer,  along  with  the  hour,  satellite  number  (8  or  9), 
and  the  day-of-year.  The  time  is  incremented  by  one  hour,  and  a new  look- 
angle  is  computed  and  printed.  The  process  continues  for  the  24  hours  of 
the  day,  and  as  for  as  many  days  as  requested.  Finally,  since  antenna 
pointing  is  not  required,  tasks  DOIT  and  RTLOOP  are  not  run. 

2. 4. 5. 1.2  Changes  to  the  Initialization  Routine. 
Since  HAWAII  does  not  involve  antema  pointing,  none  of  the  hardware  needs 
to  be  Initialized.  Therefore,  HI'TT,  the  modification  of  INITAL,  does  not 
run  task  ASMINT. 


2. 4. 5. 1.3  Changes  to  the  Ephemeris  Look-Up 
Routine.  As  mentioned  previously,  subroutine  HDATA,  the  modification  of 
DATAIO,  does  not  invoke  CALL  ASSIGN  or  DEFINE  FILE.  In  order  to  make  data 
card  preparation  easier,  only  one  data  card  is  used  as  opposed  to  the  two 
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RAPP  requires.  It  includes  the  day  of  the  year,  the  observer's  position, 
and  satellite  number  (8  or  9).  Nominal  weather  data  (72  degrees  F,  30  inches 
of  mercury,  and  50%  relative  humidity)  is  used  for  refraction  correction. 

In  addition,  a pointer  is  provided  to  facilitate  rapid  ephemeris  look-up. 
This  allows  HDATA  to  "remember"  where  it  was  in  the  ephemeris  data,  so  that 
it  is  unnecessary  to  start  at  the  beginning  of  the  ephemeris  each  time  HDATA 
is  called.  This  feature  is  especially  useful  when  working  with  LES  9. 

Finally,  the  printing  of  the  ephemeris  on  the  line  printer,  which  DATAIO 
does,  is  not  done  by  HDATA.  Obviously,  this  would  interfere  with  the  printing 
of  the  look-angles,  and  is  unnecessary. 

2. 4. 5. 1.4  Changes  to  the  Look-Angle  Calculation 
Routine.  Once  the  ephemeris  data  has  been  located , the  calculation  of  the 
look  angle  is  undertaken.  Subroutine  ANTENA  was  modified  to  remove  the  code 
which  prevents  the  antenna  from  being  pointed  at  the  twin  towers.  The  new 
subroutine,  HANTEN,  can  therefore  generate  any  azimuth  from  0 to  360  degrees. 

2. 4. 5. 1.5  Changes  to  Time-of-Day  Routine.  Since 

it  is  unnecessary  to  input  the  tlme-of-day  from  the  WWVB  receiver,  the  calling 
of  that  particular  subroutine  was  deleted  in  _he  new  subroutine  HTIME.  As 
mentioned  previously,  the  time-of-day  is  controlled  by  the  main  program. 


HAWAII. 


2. 4. 5. 1.6  Conclusion.  Task  HAWAII,  being  a modlfi- 

I 

cation  of  RAPP,  has  been  used  successfully  in  predicting  look  angles  to  LES  8 

and  9 for  flights  in  both  the  Northern  and  Southern  Hemispheres,  as  well  as 

the  Western  and  Eastern  Hemispheres  and  the  North  Pole. 

2. 4. 5. 2 Task  ALASKA  Description.  Task  ALASKA  is  so  named 

because  it  was  originally  developed  for  predicting  look  angles  for  a flight 

/ 

to  Alaska.  Based  on  the  flight  plan,  AIASKA  prints  the  look  angle  to  the 
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satellite  at  a desired  time  of  day,  plus  the  angle  one,  two,  and  three 
hours  later.  If  takeoff  is  delayed,  the  ALASKA  data  is  useful  for  altering 
the  test  plan,  thus  maximizing  the  probability  of  a successful  test.  Task 
ALASKA  was  developed  by  making  a modification  of  HAWAII. 

2. 4. 5. 2.1  Modification  of  HAWAII.  Task  HAWAII 
was  modified  by  altering  the  code  in  generating  the  time  of  day,  and  by 
providing  code  which  queries  the  operator  as  to  the  time  it  is  anticipated 
each  point  on  the  flight  path  will  be  reached.  Whatever  time  of  day  is 
input,  ALASKA  will  compute  the  look  angle  at  that  time,  then  increment  the 
time  by  one,  two,  and  three  hours  and  calculate  the  look  angle  for  each 
time.  Except  for  this  change  to  task  HAWAII,  ALASKA  uses  the  same  subrou- 
tines as  HAWAII  does. 

2.4. 5. 3 Task  WRITER  Description.  Task  WRITER  can  be  used 
whenever  the  antenna  is  being  driven  by  the  Rooftop  Terminal  in  the  Active 
Track  mode.  It  is  used  to  observe  the  differences  between  the  computed 
and  actual  look  angles.  It  operates  by  "stealing"  the  time-of-day  from 
RAPP,  the  computed  and  measured  look  angle,  and  the  azimuth  and  elevation 
error.  It  then  simply  prints  this  information  on  the  line  printer.  By 
using  the  reschedule  option  of  the  RUN  command,  WRITER  can  be  automatically 
rescheduled  at  any  desired  interval. 

2. 4. 5.4  Task  DATA  Description.  Task  DATA  is  used  to 
list  the  ephemeris  data  from  the  disk  onto  the  line  printer.  This  is  done 
to  provide  the  TRW  personnel  with  a copy  of  the  ephemeris  data  to  use  when 
they  key  in  the  epher-^ris  into  the  K-Band  Modem  computer.  Task  DATA  uses 
double  precision  in  order  to  print  each  thirteen-digit  coefficient  that 
the  K-Band  Modem  computer  requires. 


2. 4. 5. 5 Task  XLINK  Description.  Task  XLINK  performs 


the  function  of  recording  all  the  parameters  that  Lincoln  Laboratory 
requires  to  perform  orbit  fitting  for  each  satellite.  The  resulting  data 
is  sent  to  Lincoln  Laboratory  to  be  used  in  generating  new  ephemerls  data, 
one  to  two  months  in  advance. 

2. 4. 5. 5.1  Data  Recorded  by  XLINK.  In  order  for 
the  data  to  be  used  by  Lincoln’s  orbit  fitting  program,  the  data  must  be 
stored  on  magnetic  tape  in  a specific  order.  Figure  10  illustrates  the 
format  for  each  block  of  data.  The  data  is  collected  and  recorded  once 
every  four  seconds,  during  the  first  ten  minutes  of  every  hour. 

2. 4. 5. 5. 2 Implementation  of  XLINK.  Task  XLINK 
is  run  only  when  the  Rooftop  terminal  is  actively  tracking  a satellite. 
Scheduled  to  run  every  four  seconds,  XLINK  first  checks  the  time  of  day 
via  the  WWVB  receiver.  If  the  time  is  within  the  first  ten  minutes  after 
the  hour,  XLINK  sets  an  INPLT  RUN  flag,  runs  task  INPUT,  and  exits.  Task 
INPUT  collects  and  stores  the  required  pointing  data,  and  SUSPENDS  itself. 
With  the  INPUT  RUN  flag  set,  task  INPUT  will  RESUME  when  commanded  to  do 
so  by  XLINK.  Once  150  sets  of  data  have  been  collected  and  recorded  (150 
sets  X 4 times  per  second  ■=  10  minutes),  XLINK  resets  the  INPUT  RUN  flag. 
With  this  flag  reset,  XLINK  will  resume  checking  of  the  time  of  day,  until 
the  next  hour.  If  it  is  desired  to  complete  the  data  collection  and 
recording,  BIT  ZERO  of  the  11/45  Switch  Register  should  be  set.  This 
causes  an  end-of-flle  to  be  written  on  the  mag  tape.  The  tape  then  rewinds 
Itself  automatically,  completing  the  action. 

2. 4. 5. 6 Task  INPUT  Description.  Task  INPUT  does  the 
actual  collection  of  the  data.  Time-of-day  is  input  from  the  WWVB  receiver 
and  formatted  prior  to  being  buffered  for  output.  Azimuth  and  elevation 
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are  recorded,  and  the  path  delay  is  input  from  the  Crosslink  Ranging  Box 
located  In  the  Rooftop.  Task  INPUT  also  buffers  the  constant  type  of  data  - 
data  type,  month,  day,  year,  site,  and  satellite  number.  Once  150  blocks 
of  data  are  buffered,  they  are  written  on  magnetic  tape. 

Once  the  ten-minute  data  is  written  on  tape,  INPUT  suspends  itself, 
until  resumed  by  XLINK  on  the  hour.  If  it  is  desired  to  close  out  the  data 
file  on  mag  tape,  bit  0 on  the  11/45  switch  register  must  be  set.  This 
causes  INPUT  to  exit,  which  closes  the  tape  file. 


2. 4. 5. 7 Program  PAUL  Description.  Program  PAUL  runs 
under  the  Disk  Operating  System  (DOS)  on  the  PDP  11/45.  It  is  used  to 
transfer  ephemeris  data  from  magnetic  tape  onto  the  disk. 

2. 4. 5. 7.1  Implementation  of  PAUL.  The  IBM  370 
located  at  Lincoln  Laboratory,  which  is  used  to  generate  the  magnetic  tape, 
writes  the  ephemeris  data  in  blocks  of  690  words. 

The  PDP  11/45  is  set  up  to  transfer  data  in  blocks  of  256  words.  This 
means  that  434  (690-256)  words  would  be  lost  from  every  block,  making  the 
transferred  ephemeris  useless.  As  a solution  to  this  problem.  Program  PAUL 
was  written  in  the  PDP  11  Assembly  Language.  It  sets  up  a file  on  the  disk 
entitled  DAVEM.DAT,  and  performs  a TRAN  690  times.  The  TRAN  takes  a word 
from  the  magnetic  tape  and  transfers  it  into  the  disk  file  DAVEM.DAT.  Each 
block  is  transferred  in  this  way  until  two  end-of-files  have  been  encountered 
(one  each  for  LES  8 data  and  LES  9 data) . 

2. 4. 5. 8 Program  SATSPT  Description.  Program  SATSPT  runs 
under  DOS  Version  8 on  the  11/20.  Version  8 is  used  because  it  is  the  only 
version  with  a Plotter  driver  routine.  SATSPT  is  a great  circle  navigation 
program,  computing  look  angles  from  any  point  on  the  earth  to  any  satellite. 
SATSPT  is  a modified  version  of  a program  originally  written  for  a CDC  6600 
computer  by  Lt  Joseph  Knapick  of  the  4950th  Test  Wing  here  at  Wright -Patterson. 
The  modifications  consist  of  adding  library  functions  not  found  on  the  PDP  11, 
adding  a plotting  capability,  and  providing  a capability  of  world-wide 
observer  positions.  Input  requirements  are  the  observers  position  in 
latitude  and  longitude,  and  the  altitude,  latitude,  and  longitude  of  the 
satellite. 

Finally,  iso-elevation  flight  paths  can  also  be  plotted,  knowing  the 
required  satellite  positions. 
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2. 4. 5. 8.1  Implementation  of  SATSPT.  With  slight 


modification,  the  following  discussion  is  adapted  from  the  Program  Description 
and  Operating  Instructions  for  "SATSPT:  An  Aircraft/Satellite  Relationship 
Program  with  Iso-Elevation  Line  Calculation  Options",  prepared  by  Lt  Joseph  F. 
Knapick,  Jr.  on  28  October  1975. 

2. 4. 5. 8. 1.1  Output  Options.  Several 

input  options  provide  alternate  methods  of  position  data  read-in.  Positions 
may  be  input  in  decimal  format,  or  degrees  and  minutes  format.  Additionally, 
aircraft  position  may  be  expressed  as  a range  and  bearing  from  a VORTAC 
station  or  other  navigational  aid.  The  four  output  options  are: 

Option  0:  Calculation  of  elevation  angle  and  true  azimuth  to  the 
satellite,  given  aircraft  position,  satellite  sub-point  and  satellite 
altitude.  Output  positions  are  in  decimal  format. 

Option  1:  Same  as  option  0,  except  output  positions  are  in  degrees 
and  minutes  format. 

Option  2:  Calculation  of  aircraft  positions  which  lie  on  a line  of 
constant  elevation  angle  specified  in  the  input  data.  The  result  is  an 
iso-elevation  angle  llne-of-posltion.  The  calculation  is  executed  over  a 
range  of  aircraft  longitudes  specified  as  input  data.  Zero,  one,  or  two 
latitude  solutions  are  possible  for  any  given  longitude.  The  unknown 
latitude(s)  is  (are)  determined  for  each  longitude;  then  the  calculations 
proceed  per  output  option  1.  The  program  results  display  all  valid 
solutions,  noting  if  more  than  one  solution  exists.  (Exception;  when  the 
satellite  subpoint  lies  on  the  equator,  only  the  northern  hemisphere 
solution  is  printed.)  Since  these  solutions  are  aymmetrlcal  about  ths 
equator,  the  second  solution  may  be  obtained  by  reversing  the  sign  of  the 
displayed  latitude  and  reflecting  the  true  azimuth  about  the  equator. 


Option  3:  Repeats  the  process  described  under  option  2 for  a range  of 
elevation  angles  specified  in  the  data  cards.  An  iso-elevation  map  results. 
The  output  data  may  be  plotted  immediately  on  the  CALCOMP  plotter  located 
in  the  CSEL  lab. 

For  each  option,  most  input  data  and  results  of  supplemental  calculations 
are  also  displayed: 

1. '  Observation  time 

2.  Aircraft  true  heading 

3.  Aircraft  pitch 

4.  Slant  range  (nautical  miles) 

5.  Elevation  angle  corrected  for  aircraft  pitch  (options  0 and  1 only) 

6.  Relative  bearing  (azimuth  to  satellite  with  respect  to  the  aircraft 

nose) 

7.  VORTAC  station  latitude  and  longitude  (when  applicable) 

8.  Magnetic  bearing  and  distance  (nautical  miles)  to  VORTAC 

9.  Magnetic  variation  at  aircraft /VORTAC 

10.  Distance  from  aircraft  position  to  WPAFB  (nautical  miles) 

11.  Great  Circle  distance  between  the  aircraft  and  the  satellite 
subpoint 

12.  Remarks  applicable  to  the  calculation  (input  data  and/or  program 
generated) 

Error  detection  tests  throughout  the  program  terminate  execution  if 
a serious  input  error  is  discovered.  An  appropriate  diagnostic  statement 
is  printed  prior  to  program  termination. 

2. 4. 5. 8. 1.2  Addition  of  Library 
Functions.  While  ARCSIN,  ARCCOS  and  TAN  are  standard  features  of  the 
CDC  6600  (for  which  SATSPT  was  originally  written) , they  are  not  Included 
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using  the 


on  the  PDF  11.  As  a result,  both  functions  were  implemented 
arc-tangent  function,  which  is  a part  of  the  PDP  11 's  library.  To  obtain 
the  arcsine  in  degrees  from  the  arctangent, 

sin 

To  obtain  the  arccosine  in  degrees, 

cos"^  (X)  = 57.2957795  tan 

Likewise,  the  tangent  is  determined  simply  by  dividing  the  sine  by  the 
cosine. 

2. 4. 5. 8. 1.3  Addition  of  Plotting 

Capability.  When  desired  (as  explained  in  Section  IV) , a plot  can  be 
obtained  of  azimuth  or  elevation  vs.  observer  position,  iso-elevation 
flight  paths,  or  iso-azimuth  flight  paths.  Each  plot  is  generated  on  the 
CALCOMP  plotter  and  is  scaled  to  overlay  on  a map  of  the  world.  The 
plotting  capability  has  proven  extremely  useful  in  planning  and/or 
verifying  flight  paths  to  be  flown  during  a particular  test. 

2.4. 5. 8. 1.4  Addition  of  Subroutine 

AZI.  The  original  SATSPT  was  written  for  use  in  the  northern  half  of  the 
Western  Hemisphere  only.  As  a result,  erroneous  azimuths  were  generated 
for  flights  planned  in  any  other  hemisphere.  Subroutine  AZI  was  written 
to  take  into  account  some  of  the  peculiarities  of  Great  Circle  navigation. 
For  Instance,  one  might  think  that  an  initial  bearing  directed  due  west  of 
Wright-Patterson  would  eventually  pass  through  China.  On  the  contrary,  it 
would  pass  through  central  Australia.  Such  peculiarities  have  led  to  the 
Inclusion  of  code  to  AZI  which,  for  a given  longitude,  determines  the 
magnitude  of  the  latitude  at  which  the  satellite  would  lie  on  an  east-west 
Great  Circle  path.  To  determine  the  sign  of  the  latitude  (north  or  south). 


1//  1-X^ 
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AZI  "plugs  in"  the  northern  latitude  into  the  azimuth  calculation. 

AZI  then  "plugs  in"  the  southern  latitude  into  the  azimuth  calculation. 
Whichever  latitude  has  an  azimuth  closer  to  +90°  or  +270°  is  assigned  as 
the  east-west  reference  latitude.  Once  the  east-west  reference  is  determined, 
AZI  can  correctly  determine  the  quadrant  in  which  the  azimuth  to  the  satellite 
lies. 

2. 4. 5. 9 Program  RCA  Description.  Program  RCA  runs  under 
DOS  on  the  PDP  11/20  computer  located  in  the  CSEL  lab.  RCA  punches  the 
ephemeris  data  on  paper  tape,  for  use  by  an  IBM  Four  Pi  computer  located 

on  the  C135  test  aircraft.  The  IBM  computer  is  used  in  pointing  the  aircraft 
three-foot  dish  at  the  satellite.  Program  RCA  reads  the  ephemeris  off  the 
disk,  formats  into  BAUDOT,  then  punches  the  reformatted  data  onto  paper 
tape.  A special  paper  tape  driver  was  written  to  punch  the  tape. 

2.4. 5. 9.1  Implementation  of  RCA.  Program  RCA 
reads  the  day-of-year  from  the  11/20  console.  It  then  looks  up  the  corre- 
sponding ephemeris  for  both  LES  8 and  LES  9,  and  after  some  preliminary 
reformatting  the  ephemeris  is  spooled  back  onto  the  disk  under  file  RCA.LST. 
RCA  then  reads  from  file  RCA.LST  and  formats  the  ephemeris  into  BAUDOT.  An 
assembler  paper  tape  driver  then  punches  it  on  paper  tape.  Upon  completion, 
file  RCA.LST  can  be  listed  on  the  line  printer. 

2. 4. 5. 9. 2 Punching  Paper  Tape.  Assembly  language 
program  10  drives  the  high  speed  paper  tape  punch.  Receiving  characters 
from  RCA,  10  punches  the  tape  in  the  desired  format  by  addressing  the  output 
buffer  of  the  high  speed  paper  tape  punch  interface. 

2.4.5.10  Program  TRW  Description.  Program  TRW  runs  under 
DOS  on  the  PDP  11/20  computer  located  in  the  CSEL  lab.  TRW  makes  the 


ephemeris  data  available  for  the  ROLM  Rugged  Nova  computer  used  in  the 


Rooftop  K-Band  Modem.  TRW  reads  the  ephemerls  data  off  the  disk  and  punches 
the  data  via  an  assembly  subroutine  onto  paper  tape.  Like  Program  RCA,  TRW 
reads  the  day-of-year  from  the  11/20  console  and  uses  subroutine  10  to 
punch  the  data  on  paper  tape.  Unlike  RCA,  TRW  does  no  reformatting  of  the 
ephemeris  - the  ROLM  computer  uses  it  unaltered.  As  a result,  no  intermediate 
data  is  spooled  onto  the  disk. 

2.5  Building  Tasks  and  Linking  Programs.  All  of  the  tasks  used  in  the 
Rooftop  Antenna  Pointing  Program  were  built  using  the  indirect  command 
feature  of  RSX.  Each  command  sequence  is  located  on  the  disk  under  the  .CMD 
extension.  As  an  example,  RTL00P.CMD  contains  the  command  sequence  to  build 
task  RTLOOP.  When  building  RTLOOP  or  INPUT  under  TASK  BUILDER,  dummy  FORTRAN 
main  programs  RTL  or  INP  call  the  RTLOOP  or  INPUT  assembler  programs.  This 
makes  it  possible  for  the  assembler  programs  to  write  data  on  any  peripheral 
using  the  FORTRAN  WRITE  statement. 

DOS  does  not  feature  the  indirect  command  feature  so  each  program  must 
be  linked  manually.  The  command  sequence  used  in  linking  each  of  the  four 
DOS  programs  appears  in  Figure  11. 

2.6  Future  Modifications  of  RAPP.  Future  applications  of  RAPP  may 
include  the  requirement  to  accurately  point  at  some  other  satelllte(s) 
operating  in  the  Ka  band,  Q band  or  beyond.  As  long  as  the  ephemerls  data 
is  in  the  same  ninth  order  polynomial  form,  no  changes  would  need  to  be 
made  to  RAPP.  However,  it  is  anticipated  that  future  satellites  would  use 
the  ADBARV  format  of  the  ephemerls  data.  In  that  event,  only  subroutines 
DATAIO  and  ANTENA  would  have  to  be  modified  and  their  associated  tasks 
rebuilt  to  accommodate  the  new  format. 

It  may  be  also  desirable  to  make  the  above  modifications  if  the 
ADBARV  ephemeris  could  be  obtained  for  the  several  other  satellites  now 


«PAUL<PAUL/E 


iIIRCA4RCA,20,FTNLXB/L/E 
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FIGURE  11.  LINKING  DOS  PROGRAMS 
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being  tested  by  the  Satellite  Communications  Group.  This  would  provide 

the  AFAL  with  an  in-house  capability  to  predict  look  angles  in  planning  | 

flight  paths  for  testing. 

Another  change  which  could  be  made  would  be  to  enlarge  the  ephemeris 
data  buffers  to  accommodate  several  days'  ephemeris  for  two  or  more 
satellites.  In  its  present ' form,  RAPP  only  buffers  twenty-four  hours  of 

ephemeris  for  one  satellite.  Switching  satellites  now  requires  on  the  ! 

] 

i 

order  of  two  minutes  to  accomplish.  While  not  a long  time,  it  causes  an  ' 

unnecessary  delay.  Furthermore,  RAPP  can  only  run  unattended  for  twenty-  i 

four  hours  at  a time,  since  that  is  all  the  ephemeris  data  it  buffers. 

By  expanding  the  data  buffer  to  Include  several  days'  ephemeris  and  providing 

i 

for  a change  of  day  at  2400Z,  RAPP  can  be  Improved.  Modifications  would  i 

I 

involve  task  BLODAT,  and  subroutines  DATAIO  and  CTIME.  In  addition,  tasks  i 

RAPP  and  RTLOOP  would  have  to  be  rebuilt.  ■ 

A third  change  would  involve  modifying  RAPP  subroutine  DATAIO  to  input 
only  one  rather  than  two  data  cards.  While  originally  there  was  a need  for 
more  input  data,  the  present  program  only  requires  the  day  number,  satellite  j 

number,  and  weather  Information.  1 

A fourth  change  would  involve  Incorporating  permanent  azimuth  and  i 

elevation  biases  into  RAPP,  once  sufficient  data  has  been  collected  via  j 

task  WRITER.  RAPP  would  then  automatically  remove  any  biAses  Inherent  'l 

i 

in  the  antenna  pointing  system.  i 


Finally,  RAPP  could  be  adapted  to  run  under  the  RSX-llM  operating 
system.  Since  "M"  has  been  Introduced,  the  day  is  approaching  that  "D" 
will  no  longer  be  supported  by  DEC.  Conversion  to  "M"  should  be  simply 
a matter  of  re-compiling  and  rebuilding  the  tasks.  At  this  time,  a routine 
should  be  written  which  will  transfer  the  ephemeris  data  directly  onto  the 


RSX  disk  from  magnetic  tape.  This  would  replace  DOS  program  PAUL. 
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SECTION  III.  PROGRAM  LISTINGS 
TASK  RAPP 


ROOFTOP  AMEK  iA  pniNTINiG  PROGRAM  (RAPPJ 

THIS  TAs^  IS  Installed  under  the  rsx-hd  operating  system, 

RAPP  generates  the;  commands  necessary  to  point  the  10  FT 
DISH  Af'TEN.NA  located  On  TOP  OE 

J.o.  AIR  FORCE  AVIONICS  l RCP'TORY  BUILDING  620  ^ 

INPUT  UATA  HAS  JNITS  OF  DEGREES,  METERS,  AND  SECONDS 

rO'NON  /TT/TsIO,TEriM,TP,Tl,TrTI3,uT  ^ 

Cn-MOi-  /AL/AuLAT,  AllNG,  AlRAD,RaD,3LAT,SLNG,CLAT,CLNG 
LO-m'-in  /C/yC(12),YC(12),ZC(l2),XCA(12),YCA(12),ZCA(12) 

CO  1HN  /C/XCH( 12) , VCHC 12) , ZCBC 12) ,KK,  IVAR 

/CDnRD/XSAT,YSAT,ZSAT,XAL,YAL,ZAL,XX,YY,ZZ,XXA,YYA,i:2A 
CC'  iOn  /ANr/AZI,ELEV,  AZnN,ELElN,SDBIT,DABIT,ERA,ERE 
COMMCr.  /P  L/f.,  L , M 

CJ''^‘C'N  /riIAS/AZ3lAS,ELOl4.S,TIBIAS  ' 

rti''-“ON  /SATC/XS  ATC,  ySATC,  ZS  ATC,  DTC  ' 

COMMON  /OOti/xDOTI, rOOTI,ZOOTI, XDOT, YDOT 

Cl  ''MON  /rDOOP/FRcD,DOPLER,TOLAY  ‘i 

CO->h''n  /FThn/pf,  TC,  TK.Pa,  an 
COmmOh  /a  >irL/Ii)UNT,  INTFlG 

CO’IMOn  /IDUmI/LES,  N,  !c  of  , I AmFLG,  IPmFLG,  Ib,  IERFLG,  18,  19,  1 10  i 

Data  RTLnOR/HRRTLOOP/ 

OA-'-A  ►^APP,srATEl,PNTl,DQlT/6RRAPP  , 6RS  T A TE 1 , 6RP  NT  1 ,bRDOIT  / j 

c program  name  and  Instructions 

1 

'•’RITE  C6,  I'^O)  : 

1 Ti.  C ()  f 101) 

C i nITIaLIZat [ON  tOUTlNE 

I'^UF=0 
Ia’'FLG=' 

If.FLGrO 

URELGsO 

TMIO=n,  ] 

TLri-=0. 

’P  = 0. 

Tl  = 0. 

TET 13=0. 

D-'-  = 2,'j 

ALLATsi9.bHA2  V 

A Lt  NGs-fla  , .’A29 

AlI' 4030309732,  i 

ba'‘'  = 3 T.2RR7H 
DO  1 1=1,12 
XCfns0. 

Ycaiso. 

70  rn=0. 

xcA(n= ). 

YCAf  n=o, 

ZCA(I)=0. 

''cr-(i)=o. 
vl:i(T)  = ". 

1 zcBcns'. 
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TASK  RAPP  (CONTD) 


K K = 

I 

V S 4 i = ? . 

VSftT=0, 

ZS4  T=C^. 

>41-  = ?, 

V4L  = 'Z. 

24t  ='^. 

XA  = ^', 

YV  =vi’. 

2Z  = t . 

XX/i  = /, 
y V A = ? . 

ZZ4  = :'. 

AZI= 

tLFV=H. 

4Z  I IN  = P. 

FI  PI’v  = ii, 

SDbITsfl.Sao3?5f:-?a 
D4r'lT  = [/'.H3U5 
£«A  = 'Z. 
fc»F=?. 

?L4T=a. 

SL' G=a. 

CL4  r = ?. 

C.L^&  = 0. 

K = If' 

L =»’ 

1'  = :^ 

mZ'^I  AS  = 
fl'jI  4&  = ?:. 

TT51 4S=0. 

X S 4 T L = 0 . 
yS4TC=Z. 

ZSATCiC. 

['Tc  = n. 

yDOTI=0. 

ynoTisc. 

7OOTIS0. 

XO^Ts?, 

yoCTs;;. 

^ t 5 = ? , 

OOFLf'^s?. 

TDL4y=p, 

p»=r. 

rc=0. 

T^= 

F sv,  , 

A ^Sf’ 

lOL'vTsi 

I'lTM.Gsr^ 

TMlDsJlOl't’. 

7s5fcCGDS(0, ) 

TF(T.GF.ilVZ?,)T'»T'^  = h4Hvi,1. 


TASK  RAPP  (CONTD) 


C4LL  UUfiL 
IFCIEOP.L'3. v')G0  TO 
•'■kM  1 fc  (iS,  bZ'i 
on  T n I 

S?  FOi^NATC'  CA'i  NOT  locate  EPHEMEWlb  UAfA.  SAPP  C A f<iCELLLD , ' 5 
d r *1  u.  1X»^E-  CPTL00P,  ) 

CALL  FUrL!'  (0U1T,A 

CALL  KUNfL'OlT,,  1^,  1,  la,  1,  JJ) 

TP  ( JJ- 1)21 , 11,21 
21  '••»TTh(6,51)JJ 

El  FgP-^aT('  doit  STAOT  EkP0P',2X,  Io) 

GO  TO  1,1 

11  Caul  pun(F tlOOP, , 1,2,  1,2, JJ) 

IF(  JJ-1)2:’',  10,2^‘ 

2<T  AK'Jit.(6,EFj  JJ 
\'d  C Al  L uNPIX  iWApP,  ) 

C-.L  EXIT 

Ut'  Art^4T(:i:Sr  -iOOPTOP  ANJE-iSA  PCUNT1''IG  PROGPAM) 

1 '1  f-;«'ATi^S  SPf  all  console  S-'ITCPES  TO  ZERO) 

S/  u < ATA'  "TlOOP  3TAPT  ERROR', 2X, !6) 
t • 


SUBROUTINE  INITAL 


5ijBpCtTIK.t  INJTal 
f 

C Tl-JS  uC'LTJ'  t-  pBRFfKMS  ALL  N'tCtSSARY  CALCULATIONS  AND  SETS 

f *.LL  VAS-I  Ar'lfcS  TO  TmL  RtOUTRED  STATUS 

C 

Cr»*MOf.  /AL/ALlAT^ALuNG,ALKAD,h'AU/SLAT/SLNGfCLAT,CLNG 
CQ'"KC!  /CUOBIVXSAT  ,vSAT,ZSAT,VAL,YAL,ZAL»XX,YY,ZZfXXA,YYA,22A 
C if-.f  f'K  /Fr;li^  1/ ALAT,  F?,  F3  / F A,  Fb,  F6,E7,Ffl,  F9,  FIM 
DATA  AS'"IM,STATFi,pm1/6«ASMINT,6WSTaTE1,6RPNT1  / 

C initialize  UEViCtS 

Call  STiRT  (fBN'INT,  T,0,  JJI 
IF ij j-n  I'A,  r , 1 1 
11  N A I T E ( 6 , b U 1 
STEP 

f CONVERT  LO  IGITUOF  an,[)  LATITUDE  TO  RADIANS 

If:  CALL  UATAlf 

A L L A T i A L T / R A u 
ALA  TsRfI  . U-ALA'! 

ClL  AT  = ALAT/p(>t' 

ALLnG=AlLNG/«aD 

C Cf'FUTF  SILE  A-iO  COSINE  iJF  LATITUDE  AND  LONGITUDE 

SLATsFP  ( Al  LA'^) 

CLAi=cr;3CALLAT3 

Se  FORpiif'  aSMINT  start  LRROh'T 
5LNG  = SI  iCALLf'-;) 
rLNG  = C;.oCALL’-'n 

( CT!-''f'iJTf-'  lab  POoiriON  IN  GEOCENTRIC  COORDINATES 

XAL  = CI.at*CLnC*ALWAD 

I AL  = Ci.AT*Su.NG’<ALRA') 

Z AL  = SLA  T* ALRaO 
Slat  a si  iCCL'-AT) 

ClAT  - CCTfCILAT) 

R E T U A I 
E >10 
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SUBROUTINE  DATAIO 


S .IB"  O.jT  I .c  i.'ifMO 

It  i'v  - T-i'-:  vfAP  ■STS'^TINiG  FHO'i  1 J4N,  - IMFGEH 

nz  - 'iir  Ti.1t  BIAS  slcb.\l)s  - peal 
TbID  - "iI'.'TT^t  OP  IinP  CUb-PtNT  OEHOIO  IN  HOOMS  - REAL 
FPFQ  - faWPItw  FRElUtNCV  I'l  HZ  - REAL 

II  - 1 TO  IwTTALIZL;  THE  OISK  FILt,  0 TO  LEAVE  AS  IS  - 
LF.S  - TO  miCATt  SAIF-LLITE  UNDER  USE  C6  OR  R) 

K-^  =RF  lATI  VE  HU  ‘lul  TV 
H’’  =ABS.JLUTt.  RJP.S.SURE  IN  MILLIBARS 
TP  Ah  sTPi'.A^'.^ifii.^L  In  DEUREES  P 
01  EH.ST  I 4AAY  (3*5 

C'O  1M,T-,  /':/XC(  IRT , YCC 121  » ZC  C 123  , XCA(  1?) , YCA  C 12) » ZC  A{  IP) 
rj'’iO\  /C/YCK(12),YCBC12),ZCa(12),KK,IVAR 
r 10'i  /PL/'^»  L.  1 

CO-*  -OH  /S-MC/YSATC.  Y?HTC,ZSATf.,Orc 
COMHO \ /-1aS/AZhiaS,ELHIAS, TIBIAS 
c /TDOOP/PREQ,  CO^^LER,  TOLAY 

C.T.IUQO  /PTHN/HR,  TC/TK.Ph,  an 

CM  *-!0m  / IOo-11/lPS,  IP,  IEOP,  la,  is.  IOAY,  IFRFL&y  IB»  19, 1 Ifel 
CM-'’'’)'!  /AL/ALLAT,ALLM3.ALRA0,HA0,gLAT,SLHG,CLAT,CLNU 
COii'^ON  /TT/T’'10,TPTIm,tp,  TI,Te,TI3,CT 
C 1 H M 0 : i / F 0 0 M 1 / i L A T , F ? . r ;i , K « , P b , P b , P 7 , P S , F R , F 1 1? 

K = 1 

NRIl L(b. IMO) 

R-IAD  (l.r-ll)  IDAY,  OTC.'REQ,  1I,LLS 
C HEAD  REFRACT  iQf.  IN'^'.iTS  AmO  PREPARE  THEM 

FEAO(l,l!2)PP,TPAR,RP,A7P!A.5,tLBlAS,ALl.AT,ALLNG 
RL«T  = ALl.A  P/PAO 

ALAT  = aI.  i.AT-.l  R2H3Y'SINt2-»RLAT)  + .O0O323ia*SlN(a.*RLAT) 

1 - . ••'I  M (M  ^ / 2 p * 5 I r ( ( f, . * -V  u 4 r ) 

ALRAOs’S  A / Bl's.'".*  C .'R9S3PV,'7  5+,  VMlE76a3B*CClS(2,*»LAT) 
l-.t?Mr*.;03'jl.  9*CCSPa.*PLAT)  + ,t^,<i^)-<OiZ.1t5fl*COS(b.*RLAT)  ) 

PP  = PP*33.  Hb.ib 
TC=(TF,4P'-  >2.  )*b./9, 

T-:  = TC  + P7  5.  IF 
<•-1=77.6 

A < ? = I ' , 

AK3  = 'lfil  . 

TH'Y=T^AF\t4HiT. 

I**  C rp  4M.LT  . 32.0)  GO  T'  3 I 

r.  .b'<19  7*ExPClH.  17R1o*(T  xV-bRi^.l/TWV) 

G 1 r G 4 2 

P =R-*.  .-6  1003*-*  XP(2Z,  blw93A  ( T -.V-URP.  )/ThV) 

A : = A'<'.  *P,</T'X+.-''pikP.I/V^*AKi*pH/TK*Ap 

•.RITECS,  t . 5)  LES 
^•?I1F^^,  1 ?)  ioaY 
R I T E ( *> . 1 . A ) u'  T C 

«.  r,  = 

■i'^ivp  (.6,  1 . 3)LES 

1-3  FCR-maTC.m  ,///1X,'P0I  TiPG  n ur.S', 12///) 

7.  fiLl.  A.S.Sii-f  (3. 'LH'’:GAv/p,«.i;AT;i*,  lb) 

Tf^i.CsM 
.I*'L  •>=  ' 

0*-  *•  I'.L  F I^t  3(  1 , Aab,  I.  I VAR) 
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IMEGER 
- INTEGER 


SUBROUTINE  DATAIO  (CONTD) 


^ ^ K = r«  ;<  * 1 

/ f ( 1) , 1 = 1 / ias) 

Df.CDDL  Cr.vq,  u-6,  lAi^AV)  LL  F5 , ( XC  A ( 1 ) , I s J , 1 0 ) , ( Y C A ( I ) , I 
1 (ZCAf n , 1=1, If) , JHAY  , 

IF  ( JDAV-ir,AY)H,9,8 
P KK=KK+I 
3CJ  jf’  y 

P X I*  = K K ♦ 1 

iFc  r^iu.F  :.fio.n;.)GO  r : 5 

TF( jflg.sf;.  ;)';c  to  5 

J F I . b = 1 

00  TO  7 

5 IF(LL5.F0.n)i,a  TO  h 
IF(  IFLG.if  .f  )GG  TO  o 

-iK=YK  + i 

IF  l.u=l 

•tfl ')=■:! 

00  TO  7 

6 Pf.A&(i'-<,tND=lP)CTA-YiY(I),l  = l,3ab) 

DFCOOL  1079,  I 10,  lAPAY)  LLFS,CxCb(I),I  = l,l0),(YCt3(I),I 
1 CZC'^C  n ,1  = 1,10),  JOAY 
I^E  Cb,  1 IT) 

IFtr^'ir.r.  j.?loOO.).'.8iTFf',,  loHijDAY 

J=JOA  Y-  1 

TFCTVir.  ''c.?l‘jf.i.)*'=’ITFC5,  111)  J 

Of'  1 = 1.10 

«FiTt:s,iP)  xctii),YCi(i),zcA(i) 

'f  rooTI'jijc. 

^ w i T F ».  b , 1 1 '' ) 

IF  CT-JO.F.O.^lbOO.j'-nlTFfB,  llDJOAY 
IF  10.  .F.21F0.:  . I.vkITF  (b,  105)  JUAY 

F'  O ) ! = I , I f 

'‘FnFCb,  1.;9)  *C3(I),  Yr,P(I),ZC8(l) 

'5  Cf  ■ ri7i  f-. 

IF  (T‘*ll  .c  ,.£lfcUO.  )G0  Tl.  10 
DO  11  1 = 1,!.’' 

XsXCA ( 1) 
vsvCA  C I ) 

Z = ZCA  Cl) 

xcA(i)=xrd(i) 

YCACIj=YCbCl) 
zcA(i)=7cof n 
xf:“(i)  = x 
VOOC I)sY 
1)  ZC«(Ij=Z 
: - f I T F ( b , l 1 1 ) 

.'BTT^  Cb,  1 13)PF> 

I T F C b « 1 I U ) ►' 

^KITF  Cb, 1 lb) TFap 
WPITF  Cb, d^f) 

FOPOA r C IMl ) 

“F.  TIJPN 

C 5FT  ENi:  OF  fill  FLAG 

I ».  I F 0 F s 1 

A9 


1, 10}  r 


If  10)> 


SUBROUTINE  DATAIO  (CONTD) 


RETURN 

1 '1 

format 

1 -u 

FORMAT 

1 ''p 

FORMAT 

1 ?k 

forma  r 

1 "B 

r-  \ « t r 

r j*^  M t 

1 ’6 

F ncjMA  r 

1 '( 

FORMAT 

1 11X1 

C4i-I  >^n0Ff0O  AaTENnA  pointing  PRCGWAM,/) 

Cli,  iXtl'4.7,3XFia.  7,3X11,3X11) 

(IP. -•  CAT  nu-^BF-R  13) 

(3';h  ThF  -ilT  BIAS  FOR  THIS  PERIOD  IS  E15,8,9H 
C15H  SiTl-LL.ITF  LFS-T\) 
(liXIt.7XElo,U,2'3(6XEl6.1fe5),i4XI3) 

Cl^H  X C0EFFXC1E^TS, 1 IXiaHY  COEFFICIENTS, 
COEFFICIENTS) 


3 rDR'1AT(iJ<,'A.f,  E®hE''FkIS  for  DAY  ',!«) 
1 n FO»HAT(2XEl7.!J,«X,Fl7,l0,BX,E17.r/) 


3i^  FORMAT  ) 


SECONDS,/) 


lU  f..?b  3AT(3’K, 'o,  4,  EPhE'-ERIS  for  DAY  %ia) 

! I?  FCR,‘,AT(7Fl0.a) 

113  FCFmaT  (17*^  APS.  PRESSURE  = Flb,a,lfc'H  RILUIbARS) 

IIS  format  flSH  rEMPFRATURF  s E15,8,7H  PEGS  F) 

P'l  FCRRAT  (521  ^ATER  vaPGR  PARTIAL  PRESSURE  = E15,S,li3H  HILLIBARS) 
F ^0 


TASK  ASMINT 


.TtTLt  ASMI.jT 
.GIOHL  AS''I'''T 
,«CALL  'EXITSC 
.P^SlCT 
PC  = %7 

AG'UNiT;  MOV  1 » !*«  1 67 7^^ 
vOv/  rM,«S16775P 

IJ:  T3T  »ffl6777t:  * TEST  THaT  Rk'Q  8 IS  RESET 

HPL  2i  > iTHtNI  BRAnCM  OUT 

MOV  ««  16777/<,M.i  ; F.LSE  READ  DR-1  I TO  RESET  REQ  B 

B.R  IS 

2$:  MOV  #37 /!5,  Srfl677*52 

MOV  167752 

EXITED 

.END  ASrMINT 


( 
I 

i 

t 

TASK  DOIT  I 

|i 

.TITLF  OCIT 

.GLDftL  D0n»STATF,PNT,ANTLN4 
,^^CALL  EXITJ.C 
.HSECT  ANiTC.GBLf 'JV'R 
COl'  '<!  = , + € 

ANiTFLGs.tjJ 
. = . 

,?StCT  BPTL 

PCsy,? 

DOIT;  JSri  PC, STATE 
J$»  PC,Pf'4T 
DEC  COUNT 
TST  COUNT 
e.ME  CUT 

MOV  »1,ANTFLG  >StT  antenna  FLAG 

MOV  »31.CCoNT  jCALL  antenna  every  5 SECONDS 

JSK  PC,AnTFNA 
HOT;  EXITSC  MRTL 
.END  non 


SUBROUTINE  STATE 


.TITLF  state 

T'^IS  KC'J7I^E  h'EADS  THt  S/D'S  A^'D  OEVELOHS  Trtfc  PROPEK 

floating  point  number 

.GLCBL  STATE 

.P'^ECT  AhT,GPL»OVR 

AZIs.fP 

ELEV=,+a 

AZITNs,  + 1>a 

FLtiNs.  + lii 

SDBIT=.  + 2i? 

[)AfiITs,  + 2a 
EKAa.tJZ 
ETP  = .i-3a 

, S , -f  t4  ^ 

.RStCT  MRTL 

RlsXl 
SP  = X6 
PLsX; 

STATE:  5cTF 
SETI 

w^-CSP) 

MOV  ‘^l,-C3P: 

CLk  PO 
CLP  R1 

eiC  jINHIBIT  AZI  S/d 

PIC  77571  ;INHIB1T  ELEV  S/D 

LCF  SDfc'IT,5i2 
CLPF 
LLFF  %1 

f'Jv  »PEAD  AZIMUTH 

MOV  «clfe775a,Pl  rRHAD  ELEVATION 

ADO  s:l»»sl67760  jENABLE  AZI  S/D 

ADD  *lf:>8l6775?  jENAbLE  ELEV  S/0 

TST  pr 
HGt  CK 

LDCIP  CVE»,’Al 

«ic 

OK;  lOCIF  Ru,'4ii? 

>■  JLI- 
AODP 

ST^  %r,A2IlN 
ClRF  X2' 
lOClF  Rl,XP 
^ulf  %i,y^ 

STP  XB»ELEIN 
MOV  CSP)-»»R1 
'"OV  (SF)  + fRi' 

RTS  PC 

Over:  .'•CAD  leo. 

.END 
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c J t > i J 


SUBROUTINE  PNT 


[ 


.TITLt 
.GLOBL  PNT 

« HDLSAPPLF- 


r 

{ 


b 


.PSECT  ANT.'TBLfOV-^ 
iZIs.t/ 

ELEV=,+a 
AZI1N=,+10 
ELEIN=,+ia 
SOPIT=.+20 
DA8lT=,+?a 
E«4=,>30 
EPE=.+3a 
, = , + 0 
,o?ECT  N.KTL 
Si*,;  0 

HOLT:  0 

jM:  .'oOcD  oa, 

0N2:  -10. 

0 N 3 : , A 0 P D 3 <5  0 , 

CONiii  .aOPD  b9, 

CONS!  if. 

PNTi  SE7F 
SETl 
CLRF  XPi 
CLRF  %1 
CLPF  %2 
ClPF  5k3 
LOF  47I,H0 
LUCIF  C0N4,!:3 
ADCF  •a3»’/? 

EOF  AZIlN^ni 

'DDF  1.3, %1 

LDCIF  CCN3,a3 

CMFE 

CFCC 

bUT  E 

S-JSF  y.3,5k0 

F;  CMPF 
CFCC 
ULT  D 

SUBF  •43,r.l 
0!  SuBF  «1,'<0 
STF  %P.FFA 
LUF  ELEV.l'P 
LOF  EuElN,'*! 

SUBF  Til,1t0 

STF 

PCV 

LOF  EK4,\2 
SB  4 

a:  NCv  ^-OlC  # «A  167762 

■^'OV  32,  SP 


jADD  S9  DEG  TO  BOTH  AZIMUTHS 


jRtCUCE  ANY  AZIMUTHS  EXCEEDING  360  CEG 


jSUBTRACT  ACTUAL  AZIMUTH  FROM  DESIRED  AZIMUTH 

jstorf  difference 


jS'.JfiTPACT  ACTUAL  ELEV  FROM  DESIRED  ELEV 
jSET  RETURN 


a 


. 
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»Gc  Encode  azi  correction  for  driic 

»UPDATE  0-llC  FO-  A0&  CC'--ECTiON 
iSET  RETURN 


11 


SUBROUTINE  PNT  (CONTD) 


i i 

; i 


LCF 

Bk  A >GC  ENCODE  ELE  CORRECTION  FOR  DRUG 

Cs  MOV  hOLD,<»i»167752  jUPDATE  DRUC  FOR  ELE  CORRECTION 
fiR  H 

• • inrrc  rnn  -i  •,  i 

C^^PF  >IF  LORR  IS  LESS  THAN  -10  DEG  HOVE  3300  OCTAL 

CFCC 

BGT  F 

HQV  s(330C'»hOLD 
F«  I 

Ft  LOCIF  CU^5.«3 

CHPF  ?IF  CORRECTION  IS  MORE  THAN  +10  DEG  MOVE  4500  OCTAL 

CFCC 

'3LT  G 

HOV  A'J500,hOLD 
tR  I 

Gs  LDCIF  CnNl,X3 

AODF  XI, JADD  64  TO  CORRECTION 

LDF  Da«It,X3  ;L0AD  0,03125  TO  3RD  ACCOMULATOR 

CIVF 

STCFI  X2,riOLD  ;INTEGERIZE  QUOTIENT  AND  STORE 

1;  CHp 

bEQ  ri  >RETURN  LOGIC 

8R  C 

n;  RTS  X7 
.END 


I 

i 


SUBROUTINE  ANTENA 


SUrt^Ct’TI  Ar'7£’'‘A 

C ‘^URRCu  r INt  COMPUTES  SaTE'LLITE'  POSITION  AND  DESIRED 

C aNTEN'-A  A71N-UTH  AMD  elevation 

CC‘'''GN  /TT/Tl-ID,TtTTK,  TE,TI,TETI3,DT 

rnMMPN  /AL/il  I A T . AOLNO, ALR AO, R AD , SL AT , SLNG, CL  AT . CLNG 
COMMON  /C/XC(l£j)/yC(]?.'',/.Ln2),XCA(12i),YCA’cii),ZCA(12) 
common  ZC/XCEC  12)  , YCSC1(?)  , ZCbC  IVAR 

COmmcn  /C0DRD/XSAr,Y3AT,ZSAT,XAL,YAL,ZAL,XX,YY,ZZ,XXA,YYA,ZZA 
r JmmCC  / ANT/AZI,  ELEV,  mZIIN,  ELtliN,  3DBIT,  0ABIT,ERA,ERE 
C'JMI-Cfv  /hlAS/AZeiA3,ELbIAS,TI8IAS 
COmmOm  /?ATC/x3aTC, YSATC, ZSATC, DTC 
C READ  TIME  FROM  TmE  CLOCK 

CAUL  CTP'E 

C compute  satellite  OCSIIIC^ 

xs  A T = 0.  C" 

''SATsU.V 
ZSATsO.O 
DO  1 i=l,« 

J=J  l-I 

aSATs ( XSa  TrXC ( JJ ) * FET  13 
vSaTsCVSAT+YCC J) )*TETI3 
ZSAT=CZSAr  + ZC(J)  )*TETI3 
X SA TrXo ATfXC ( i) +XSATC 
YSAT  = >SATtVCn)+vSATC 
ZSAT=ZSAT+zc( 1)+Z?ATC 

C CCMfuTE  VECTOR  FROm  AVIONICS  LAB  TO  SATELLITE 

yx  = XSAT-XAl, 

V YrvSA’-MAL 
ZZ=ZSat-/al 

c rotate  vector  Into  fi.'iofics  LAd  coordinates 

XXA  = C,LAT*CLNG*v»’-t.CLAT*,SLNG*YY-SLAT*ZZ 
YYAs-3L’.C.aXX*ClMGaY  f 

ZZA  = SLA''*CLMO*  XX  fSL  A TxSlM'GxYY + CL  AT  aZ7 
C CDMmu’’E  AZImuTm  and  elevation  FOR  ANTENNA 

AYxArfeS^xXA) 

AYYArAMSCTYA) 

AZZasaBS ( Z7A) 

AXYA=SOFr(xxS*XAAtYVA*VYA) 

AZT=ATAMVtAYYA,AXXA) 

ELEV=4TaN2( AZZA, AXYA) 

c PijT  aZIMUTm  INTO  CORRECT  OUAORANT 


I F C X X A ) 

. 12, 

12 

l<3 

I'^ 

f TYA  ) 1 

lu 

, lb 

1 5 

AZI 

= (3P 

/RAO 

)-«ZI 

GP 

TO  2S 

1 a 

AZI 

S ■ 7 

r,n 

TP  2b 

IS 

AZI 

sAZ  1 

cn 

TO  2S 

1 2 

It- ' 

YYA)  ih 

. 1 7, 

1« 

1 6 

A21 

= (!«»;. 

/RAD)*aZT 

GO 

TO  R5 

1 7 

AZI 

=1 RC./ 

RAD 

G'' 

TO  2S 

SUBROUTINE  ANTENA  (CONTD) 


l«  AZIsf  '■  ./f^Arj-471 

TEST  AMLN  14  FrfC.'.  “OiNTiNG  AT  THE  TO^ESS  (<i76  TO  3k3?  DEG) 

<?S  Tt.sri=ji7b./S4r 
TEST  2 = 3'■''£^./HA'' 
f EST3=?88, /HAO 
I' ( AZI.GT.TEST 1 J GO  TO  ^h 
GO  TO  'i.-i 

dk  u*  (azi.uT.test^)  go  to  dl 

GO  TO  30 

^7  IP( A4i.LL.TEST3j  GO  TO  28 
AZIsTtST^ 

GO  TC  .S  T 
28  AZlsTtSTl 

AZIsAZl*HA0f4Z3TAS 
ELEViELE'V*PAu-t'Ei.8I  AS 
IFrZ2A,LT.^i.0)tuev  = -EuIV 
CALL  HfTOr 

^ r,  T *j  R 

p;  ND 


SUBROUTINE  CTIME 


■i 

i 

1 


5"bN''"JTr.t  CTI'iE 

THIS  PGUT^NE  BHIv/l!)ES  TT'^lfc  FOK  Tut  SATELLITE  POSITION  CALCULATION 
Cu'-M?  I /TT/TMIO,  rtrr^,TF,TI,TETI3#DT 
/‘»lAS/AZSIA5rELfiIA5,TIBlAS 

C /C/XCCU),YCCI^)»ZC(12),XCA(1?),YCA(12),ZCA(12) 
c •>•'  ’ON  /r/xc  J ( 1 2)  , rLdUcJ)  » aCB  c i c)  » K^',  IVAR 
CHL  TO’' 

TET  = i>t.CNL5'  ) 

r-i-  f = TETr  -TtT 

C-^KT  = \eb(Ci-'KT3 
It-CC  'T-\..)i,2,2 

2 T£TI-rTLT 

3 irrTcTi...^r.a3220.)G3  TO  a 
f'C  I 1-1,1  ■; 

YCfI)-*C8tI) 

1;*  ZC(l;-ZC'MI) 

T'MO-uUi^flO, 

T i = - iu’ 

* ! U 9 

Trri3:'’Tf;TI'»OT  + TI3IA3-TMjy)/21ta2, 

P E T ' j ^ ' 

A cj  2/  =1,1 : 

XCCIT=YCACT1 
YC( i}-vca(  n 
2'1  7C(  IirZCfiCn 
T''lD  = 216n^. 

TisC-.  J 
TF  = i,  i2‘V0. 

TETiir  (TPTIM  + DTfTI  31  AS-TYI0)/2lh7iO. 

tETtiP  ' 

F.-IO 


58 


SUBROUTINE  TOD 


.TiTlE  tod 
.".LOBL  TCO 
.-^SECT  TT,GBi.,OV»^ 
T 'tIOr.  + ;i 
T-_T  lM=,+a 
T r = , + 1 ? 

TI  = .Ma 

TLTIi=,t?0 
OT=.+au 
, -.+i? 


.■>StCT 

AC 

R1='4  1 

4Ct=%l 

Rd~y.^ 

»5=*43 

NhGP=%« 

RRTL 

RS=  ib 
wOND: 

, R L '1 

? 

C JNl  ; 

.«CRO 

1 

C-1N0: 

. NQRO 

1 

A ) j ,i  ; 

1 (j7773 

4 'T  0 4 ; 

1 U 7 / 7 « 

tot: 

MHv 

R0,-(SP) 

MOv 

1 , " ( 3P ) 

y 0 V 

Ri,-(3P3 

MOv 

b JR  ,-(5?) 

MOV 

NE3l.-(SP) 

MOv 

SETT 

R5,-(SP) 

sete 

PO  V 

» 1 , AAl)D0 

Mu" 

NOR 

Cl  = 

*9  A D D 

T sl-^l  5 

rsT 

4 4DD0 

RRL 

I vPl 

M 'j  V a 1 ? 

11;  NOR 
Si)-  R.l, 

1 1 

')Ov 

«4DDa,  /(CND 

TST 

4 4DD3 

bPI 

r.p2 

MDY 

» 1 , >AOC3 

SOP 

NO*> 

CLP 

4ADDv’ 

I i->Sl 

TST 

e ACO0 

; COMKOL  & STATUS 
; DATA  IN 


; SET  CSR0 


j RESET  CSR3 
f TEST  REO  B 


; Input  rytei 

; TEST  That  heq  B IS  RESET 
I SET  CSHkJ 


I RESET  CSRU 
; test  REQ  B 
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SUBROUTINE  TOD  (CONTD) 


PPl 

INP3 

MOV  « 1 V . , R 0 

U':  NLV 

SOS  R ii  f 1 2 

^ ‘V 

#ADOa, - nvD+2 

j ''ECOCE  Tl-'-e  -.UCDS 

. r»4«  ^ ^ 

0 J J W 1 X u ^ ' 

} R0=  A I >■  DE  R 

CLR 

■■•EGl 

T?T 

w OR  0 

dRu 

W1 

"0  “ 

, Nti;i 

RIC 

-<10000'/,  WORD 

H • : CLR 

q 

MOv 

WORD, R 1 

01  V 

=»  it  3 R 6 . , H 0 

NO  V 

RD,  Ri 

MUL 

w 1 0 0 0 , , R "i 

M 0 V 

Ri, «UF 

CLR 

R '1 

C T V 

«<256..»R0 

'1 0 V 

R J , R 3 

MUL 

«>  I '^0. , R3 

AD  J 

R3, P"F 

CLR 

RO 

DI  V 

RU.  ,RI 

''Dv 

'<  -3 , R 5 

-11 11. 

•<  1 0 . / R 3 

. A D 0 

RS,BJP 

A L D 

R 1 , UUP 

A.)D 

'<  E G 1 , S J F 

A Du 

« 36, 3')E 

; H _)>:  NOW  contains 

MSEC 

L D C I r 

CONI  , AC  1 

LOCTE 

8 J E , AC  D 

D I V F 

A C 1 , A C 0 

; A C ^ N‘  0 -V  C 0 '1  T A I S 

SE'CO'JDS 

CLR 

MEG2 

TST 

wORD+2 

6HL 

<3 

0 » 

•<  720?.  , •''c:G2 

8TC 

oiO.)0''l,  -DRD  + a 

wp;  CLM 

R0 

V)  0 v 

wORO+2, R 1 

DIv 

B ■ b384. , R0 

C V 

R M , R 3 

■'LL 

A 5 0 ' ' 0 . / P S 

yn\/ 

K 5,  hue 

Cl> 

»0 

D I V 

« 1 D 2 a . , -w  V 

■■,nv 

R 0 , R 3 

'J  L 

•»  3ft ; , • 3 

ADD 

< 3, 3 JF- 

CLP 

q,, 
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1 


; INPUT  BYTta 


; CHECK  IF  minus 

; MSEC  = 8 SFC 

; SET  UP  DIVIDEND 
; SET  UP  DIVIDEND 


f DIVIDE  SEMArJDER 


; DIVIDE  remainder 


; add  HEmaINDEH 

j add  in  bit  15  (normally  SIGN  BIT) 


; CHECK  IF  minus 

; 72,iiJ(10  SEC)  s 2ii!  HOURS 

; SET  UP  DIVIDEND 
! SEI  UP  DIVIDEND 


> DIVIDE  remainder 


SUBROUTINE  TOD  (CONTD) 


V I v 
^‘CV 
'lUL 
ADD 
CL" 

DIv 

KO  V 
‘^.Uu 
A D D 

ADD 
A Du 

• UJF  so  A COMAI'jS 

unciF 

LDCIf 

MJLF 

ADDF 

• t-Z’'  MOa  COJIAINS 

STf- 
riGV 

r-,OV 

MOV 
MOV 

.VTS 
.EDO 


» ' J t / ‘V  ? 

R3, RUF 

U <A 

sS,  ,R’l 
ft  0 , H 3 
®o » ft  3 
ftl,BiJF 
ft3,6'JP 
NcC,2,  3UR 
10  SECONDS 
CD.Mi?,  AC0 
mJF, AC  1 
4C^, ACl 
A C 1 , A C 0 

SuCONOS  It)  FLOATING 
ACO, TtTIM 

CSP’)  + , VF'il 
C3P)  + ,aLlF 
tSF)+,fta 
f Sft1+,ft I 
(SF)+,ftO 
*/.7 
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j DIVIDE  ftEHAlNDER 

; DIVIDE  HtMAiNuEft 
} ADD  remainder 

POINT 


J 


SUBROUTINE  REFCT 


SUBPCwU'jK  "-Fl'T 

(’f  : SSu"'?;/ AT  IKK,  Y AND  WEF  R ACT  I v' I T Y 

CD'-''  ir  /PTiVvi/pP,  TC,  r^.p*,  AN 

C OKr  .'f.  / A'.T/  AZI,ElEV.  AZlIN,clEIN,SDBI  r,DAt}IT,tF<A,ERE 

HP  =.>-.SOi.uTL  P^FSSJ-iE  In  MILLIBARS 

TC  =Tfr  Mpt-HATUAT  IN  DEUREtS  CENTIGRADE 

TK  c-’ Eii«ERAT  iRE  IN  jEGREES  KELVIN  src-t-273.  18 

Pi  =!.;-itR  vAp-jR  PARTIAL  PRESSURE  JN  MILLIBARS 

AN  =‘«.jRFACE  PEt-RACTIVlIY  = (REF'RALTiVt  1 NDE  X- 1 . ) a 1 . Eb 

A,  EiRPKWACTION  TAriLl 

rO^-PECTIO.*  IF  INDEX  SET  TO  ZERO. 

IMA»  .EC.  Dl=('3  = !ui.0«;  RETURN 

IF  (A^.  ,NE  . '’.Dcn  r.O  Tu  SC- 
'^1  =2’.Dt. 

0?  =r.ur 

RET-JF  f 
s^!  COM  In;  t 

EMt'R  ^ITp  llEVatIoN  I*,  DEGREES IE  EL  IS  APPARENT/  THEN 

T-ijP  s (APPARENT  - Dl).  IF  EL  IS  TRUE,  THEN 

AFP'AkEM  a fTRuE  + D.i),  AN  IS  SURFACE  REFRACTIVITY  (N-UMTS), 

nominal  values  JF  TE  IP  (T),  PRESSURE  (P),  AND  WATER  VAPCR 
PRESiURE  (•’’•V)  ARE  r = 263/  P = 758,  And  Pv-Vsb  . 

Ax)  = t Er  AC  I I V I TV  = K l*“'/T  + K2*P>V/T  + Ki*PwV/I  **2 

K5  = a81Z. 

* * * * A A EREEU  milestone  RaDAH  * * a 

FLTRL-t.  = £LFV 

IFf  El^R  JF.L  r.L’.  I ELTHLEsC.C” 
call  DFLL(LLT°Ut,Dn 

F IsELTRJE+Oi 
C»Ll  DEllCE  1, -■21 
t?=ei T:UE+rz 
CALL  CFLL(E?.D3I 
tLEv  = ELTRUE  + L 3 
R t.  T j P V. 

END 
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cj  e 


SUBROUTINE  DELL 


r 

C 

r 

r 

L 

C 

c 

c 

( 

r 

r 

c 

r 

c 

c 

(■ 


A.FPff-.r  Dtt  1 072  SUriPOlJTiNt  DELL  (MILLSTONE  HEFkACTION  TABLE) 
SL’EALuTINE  DELL(E,Ot 


PC  F ?3Ur<E, ’I  E^'PFNaTUUF  , humidity  AND  KEFPACTIVITY 


/ r r f ic*  I f r t 


DIMt'SIDN  A(20J,H(20) 


FP  sA^JSULUTt  PPFSSU^E  IN  mjllIBARS 

Tr,  =T  EMHFPA'I  IMF  IN  DEUKEEa  CFNTIGPADE 

TK  rltMPERATLKt  IN  UtGPEEo  KELvIN  =TC+273,ie 

P'.‘  i.  ATf-p  vAf'OP  partial  pressure  in  millibars 

A’  ={-wPFACE  PFFPACTIVITY  = (WLFRACTIVE  I NDEX- 1 , ) * 1 , E6 

i,k  =F>T  RAcT ion  table 


TAfLE  IS  SET  UP  IN  pQR  " A + t3*NS  PUR  A SEQUENCE  OF  FIXED  ELEVATIO 
AtblES  V HpPF  NS  = SURFACE  REFRACTIVITY  (N-'JMITS)  = AN  BASED 
CU'  aLpAmv  ;.'FATHcR  HURpAj  Data  for  FEBRUARY  AND  AUCiUST. 


C'TRITS  A (hDEQT  i jD  9 (MDEG/N-IJNIT)  CCRRESPONO  TU  ELEVATION 
Intervals  of  n,5  deg  between  it  deg  and  6 deg  elevation, 

IfTEKVALS  OF  2.71  DEG  BETaEEN  6 DEG  AND  20  DEG  ELEVATION, 

Intervals  ff  ic*.  deg  between  2k:  deg  and  00  deg  elevation. 

•■MDEl  FAli.S  IP  u nrealistic  REFRACTIVITY  IS  SPECIFIED. 


DATA  i/U2 V, R, iB3. 7, 2S8. j,  16 3. , OS. 0,60., ao. 96,30. ,20. ,14. ,10. 23, 7., 
+ 3. *1.3,  ,3  ib»*.1,'*,3.".5,“,54,“,86,",5,“,35,“.24,«,18,-,l2,",Ob,0,, 

+ 0 , f i . / 

data  •</3.B?6,3.127.'>.371,1.7«,l.a09,1.16,.O85,,87,.77,.h6,.609, 

+ .Nb'j,  .LI  1 , . 30*3.  .3b9.  .2B6,  . 2 1 3 , . 1 90 , . l o8 , . 1 5 , . 095 , . 0653,  . 046 1 , 

+ .031N,  . DPO.  ,/P97, , 'A. , 0./ 

IP  (c  .GT.  2;.T  GO  TO  20 
IP  (F  .GT.  o.)  GO  TO 
lA=l-i  .rC2.*F) 

DEL.=  ',4  Ji-'tE,  -.B)  )*2. 0 
,3  AA  = iA  rY)-(  A(  Ta)-A(  IV-t-U  }*UEL 

" = 1 < ( - A < r'  * A l-T ) 

O'"’  T bvJ 

20  1X  = :R+7')TCE/  IM.T 
DFL  = . A 'OD/’'^  . . ) ) *.  1 

Gfi  T<  ? 

b Ia=1 i* INT C (E-o. ) /2.  T 
r-EL  = (A.  ODC*..  3.  ) ) *.3 
nu  TV  2 
RO  REflJRN 
F-  r 
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TASK  RTLOOI 


.TIILfc  RTLOO^ 

.GLOf'L  RTLOOP,  AFOliT 
.MCALi  FVITSC,  RJNSC 
.PSf'T  ANTC,  GbL,  Ovo 
COUMs.  + f 

j 3 * + l 

.DSfCT  IPiHl , GPl, OVW 
LtS=.  + iO 
Ir.>  = . + ^ 

15=.+P 
I ‘I  3 , + O 

10  = .-f’0, 

I V 3 . 4.  1 p . 

I r = . ♦ 1 , 

r ■>  = .♦16, 

11 

.PStCT  ‘iRTL 
Rl=*il 


PC  = ".7 

TjF  AvTM.G 
C"'T 

)'/  Lfc'S,  I 1 

J.-iR  PC*  At  01' I 
C'.-*  LFS,  1 1;’ 

‘it'i  OUT 

RD-'j^C  C4TAlL*GtM,3bb*ia?,4,1,l*£'*t^*'^'^TL 
OjT;  tXIfSC  mptL 


SUBROUTINE  AEOUT 


SL'fcoCUT  I\fe'  fiFOUT 

CnKf-C'.  /tC.0^^t/^SAT»Y5fiT,ZSAT,XAL,YAL,ZAL,XX,YY»ZZ,XXA,YYA,ZZA 
/i-  T/tZl/ELtv»  AZIlN,ELELlN,SDtiIT,DAt3lT,E«A,tRE 
/ei6S/4ZBlAS,tL914S,TI^IAS 

f.Cvv.C\  /I>:L‘*'l/Lt5,N,  Tt  OF,  IAMFLG,  IHMFLG,  16,  lEkFLG,  18,  19,  110 
Z = S:‘^T(XXA*XXA  + YYA*vyA  + Z7A*ZZA) 

Z=2/ 1 ^00. 
l = I^rcz-lt?0?e.) 

JsIMlZ/, 3-131020.) 

FGCr^A  r ((jA  1) 

IFCJl  .Kt.M')G0  TC  1 


.N«ITrf6,i;20)AZI,tLEV,Z,I,J,tPA,ERE 

FOPyATCiH  ,'AZI'^UT^1=  F9,3/1X,  'ELEVATIONS  ', 

1'«A.n,GE=  ' F>i,  1,  IX, '(',C6,  ')'/lX,  'PATH  DELAYS  ' 

I'/U, 'AZI-l'T^-  tPRQ^^s  ',  F»'.3/1X,  'ELEVATION  ERRCPs 

GO  TO  3 

IF(Jl.\E.'A')GO  TC  i 

call  CCNVEP ( J?, J3, Ju, J9, J6, A) 

AZf>I  S 3s4 
G''  TC  3 

lF(J2.Nt.'t')GQ  Tr  4 

call  C0^VcPCJ?,J3,j4,;5,Jb,A) 

E LB  I A ':} s i 

GO  ro  3 

Jl.NE.'L'lGO  TO  3 
LES  = 2 

ipc  J2.r:  'e'luEssa 
IP(j2,EG.'P')wES=9 
PET  JP  V 
EMO 
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SUBROUTINE  CONVER 


Soi^ROuTINt  CGNVER(.T2,  J3,  ja,  J5,  Jb,  A) 

KOUMTsl 

ISTGN  = ;j 

IDOTeiil 

Ntj'‘^sei 

jj  = i 

1 IF(KOUNT,tQ, 1 ) 15J2 
ChOU^JT.EQ.SHsJS 
IFCi'nuNT.tQ.S)  IsJ4 
IF(^OU^T,EQ,<^)  IsJS 
IFCKCUM.EO.b)  I = Jb 


IF(  I. 

EG. 

' • ‘ 

’)G0 

TO 

IF(  1. 

EG. 

« < 
. 

’)G0 

TC 

IFf  I . 

EG. 

't3‘ 

’)  II 

IF(1. 

EG. 

'r 

■)  II 

= 1 

IF(  I. 

EQ. 

')  II 

:2 

1F(  I. 

EG. 

'3‘ 

’)  II 

= 3 

IF  f I. 

EG. 

'4' 

')  II 

54 

IF  (I. 

EC. 

'5' 

’)  n 

55 

FC. 

'b‘ 

■)  II 

56 

IF(  I, 

EG. 

'7* 

’)  II 

57 

IFtl. 

EC. 

'b' 

’)  II 

:fi 

JF  (I. 

EG. 

• 0 < 

■)  11 

:<) 

IF(1. 

EC. 

» < 

' )Gn 

TO 

GO  TC 

a 

2 ISTCF. 

= 1 

GO  TO 

5 

3 IDrT=i 
GC  TL  b 

a iFf  iroT.t'^.  n JJ  = JJ*15: 

S H CUNTs«  Oil*.  T+ J 

IF  .5)00  TO  1 

IF  (l?IGt..F(,.  l)F<UMr-.V|jM 
As^LOATf^u*')/FLUAT(  JJ) 
Bf.  1 1)4  F. 

F NL 
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TASK  DATAIL 


ni^fVSION  IAk\V(35^) 

COHMOx^  /C/XC(l2),rC(U),ZC(12),XCACl2),YCA(12),ZCA(12) 

CO'^IMO  . /C/xCB(:12J,YC3C12)»ZCH(12),KK,IVAR 
nMlC\  /FL/K^uz" 

comm?  /S4T(:/<SArC,rSATC,ZSATC,DTC 
rn'>iM?w  /yi*s/A2£;lA5fLi.pIA5»  TItslAS 
CUM-'O  /Ti;C'OF/F»KO,  OOMthK,  TDLAY 
CQmm.c.x,  /PrH-\|/?’P,TC.TK,F/i,  am 

COmmQ.x.  /Ku-'ll/LtS,  12,  IE  OF,  14,  1 5 , ID  A Y , lERF  LG,  16,19,110 

COi'-MCN  /AL  /AlLAT,  ALLY'S,  ALPAO,  9AL),  SLAT,  SLNG,CLAT,CLNG 

CO-  /TT/r  - i0,TETIl»,TF,TI,TETI3,DT 

CQm-Om  /FOOMl/ALAT.F2,F5,F4,Fb,F6,F'7,F6,F9,Fl0 

data  ODIT,  FTLOOP/bRt/CIT  ,6RRTLOOP/ 

call  CANALL  fOOIT, ) 

CALL  CAMAuL  CRTlCCO,) 

K = I 
Kk  s J 

3 call  ASSI&MC3, 'C  k-AjOAVEM.DAT  > 1 '»  133 
IFLGriJ 
J K L G 5 '<) 

LEPiVc  fill  3(  343, 1 , IVAR) 

^ Kk  = kK  + 1 

7 KfcAD(3'»'K,ENu  = 14)(TARAY(I3,I  = l,34S) 

DECODE  C679,  106,  IAFAY3  LLE S , ( XC A ( I ) , 1= 1 , ia) , ( YC A ( I ) , Is  1 , 1 0) , 
1 (ZCAClJ,Isl,i:-3,jr'AY 
TFf  jr  av-T';AY3  S,  6,  t- 

8 K “ =K  8 •f  ) 

GO  rc  7 

•-)  k K = K »-  + J 

Ik  CTmIC.EG.2: 600. 3G0  to  s 
IFCJFLG.Nt.P:  GH  Tn  s 
JFI.Gr  ' 

GO  TC  / 

S IP  (uFo.F:0.8  3 r.O  TO  6 
Ik  ( IFl''-.' F,  J3  GO  TO  6 

KKsrk*.^ 

IFLO=i 
JP  LGiO 
GO  TO  •/ 

h PF  At.tf  i'KK,F.'i;>=ia3  (lARAYCn  , i5i,34S3 

DECOOE  t6  79.  1 'A6,  lARA  Y)  LLE 5 , ( XCb  ( 1 3 , T s 1 , 1 0 ) , ( Y CB  ( I ) , 1 = 1 , 1 0) , 
I (7CctAI3,  1^1,  l.n  , JOAY 
1^(1  UC.E0.216J.'.3GO  TQ  la 
pn  11  rsl,l/ 
asxCa ( 1 3 
YsYCACn 
Z=7CA(I3 
>CACI3sxCB(n 
VCACijsYCP'l; 

ZCAClrZC’^f  I) 

Y L 3 ( 1 3 = Y 

Y C B ( T 3 = Y 
U 7CWCT3=Z 

1.-1  CALL  pU^CDUIT,  , 12.  ' . 1 1 , rj3 
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TASK  DATAIL  (CONTD) 


iF(jj-n  i»-t.  I 

2J'r'  oon  STl^T  ^tlb) 

GO  TT  la 

a Cii-L  ^J'JNC  FTI.qOk'.  » 1 / -?»  i » ?»  J J) 

IF  C J J-  1 ) U.  12 

Id  (.ij,  (tsiyjj 

251  FC»<i4T('  FTLOC?  3T4‘<T  EHWO'^  SIt>) 

SET  E^O  n?  PILE  flag 
la  I EOF si 
CALL  E'^IT 

i ';i6  Fo^Mii  c 1 i:x 1 1 » 7<E  1 1 •/’f  2^ (bXF  16, 1 K) » ax  13) 


TASK  SCAN 


CO*-  n /TT/T«in,T£TI^,TF,  ri,TeTI3,L,i 

/aL/‘il..^‘T,ALl.■'l■'5,AL^AJ.KAi3,SLAT,SL^JG,CLAT,CL^G 
COM-IO  M /C/XC(  12) , VCCI^)  #zc:(  12) , XCACl^) , YCA(  12)  ,ZCA(  13) 

CO^MQ.,  /C/XC3(12),rC^(12),ZCi3(12),*<K,,IVAR 

CC"!Cj  /C0:-^D/XSAr,rS4T,ZSAT,xaL,YAL,ZAL»XX,YY,ZZ,XXA,YYA,ZZA 

CO-'-r.' / AN  r / A : i , V , «Z  I tic  I iN,  SOBi  f , uAhI  T»  Ek  A,  tHt 

COMftO.j 

C I'-’-iO  i /'?  I A3/ 42314  5,  ELBIA3»  TIBI  AS 
CTMO.  /SATC/XSATC,'<'S4TC,ZS4TC/3TC 

/DOT  f/'OJTI,  Y;)3ri,  ZOTTI,  XDOT,  vaOT 
C V1‘10  ^ /TDnDP/FRE.,,DGr'LER,TDlAy 
CO'^'iC  < /r>TH:i/.>p,TC,  TX.P-V,  A^J 
rGf‘."0''  / 1 -ITC/ tCUNT,  INTFtG 
CG'-HO''  /S3I4o/43I45,EBIAS 
Data  gc an/f^scan  / 

Data  sc  A-'IR/FRSCAfjp  / 
i'ATa  Df'IT/bRDOlT  / 

Data  pti.^qp  /6k»Tl00F/ 
iNTf-  L 0=  ' 

Ar^lAS  = -2.b 

EHIAS=2.B 

CAL'-  CanaLlCDOI  T,  ) 

CAi.L  C A-  ALLiF'l  LOOP,  ) 

CaLl  F IumF'-U'SCANP,  JJ) 

CALL  Pl'n  (SCANR,  , 12,  1 , 12,  1,  JJ) 

A-tir£lo,bl)  JJ 

31  FOR'^AfCli  ,'5CAt.:P  RUN  5TATUS=',I6) 

00  I=i,?b 

1 IP(INTFLG.F.D,1)G0  TO  2 
call  I ait  Cb, 1 , JJ) 

TO  1 

c If  TFL0  = 0 
COMI'.JE 

IF  ( ( 43*5  (FRA)  .OT.  . 1 1 .'.R.  ( ABSCERt)  ,RT.  . 1 ) )*^HITE(6,2H0)ERA,ERE 
^.PITECG,  2^3) 

’'0  20  1=1,26 
A = (-  l, )**(!  - 1) 

DC  IJ=l,b 

DO  4?  Ii*'=l,b 
4 B I A s = 4 b I 4 s , 2 * A 
j I=’(P  r'=‘LO.K>..l)Gl)  TO  u 
CALL  •att(5,1,JJ) 

00  TO  3 
A TOT'LL  5=  '' 

42  CONTINUE 
AZ=AZ1 
tL=ELEV 

40TTF (0,22a) A/,EL 
CONTI  Jt 
NRITE(6,2i:?) 

C One  AZPuP  SLA,  CC'IPLETl 

F31aS  = t‘;Ias-.? 

2'  CCNTI'..'F. 

call  CA'  4Ll(SCA(„9,  j 
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TASK  SCAN  (CONTD) 


: I 

:i 

CALL  w '.PIXtSCAM,  ) I j 

CALL  J I X ( S C A ^ H » ) 

CALL  (OOIT,  » 12,  1,  12,  1,  J 
CALL  ^Of  (PTLOCP, , 1,2,  1,2, ) 

*oirtC6,2£'’  ) 

21?i  Fn^/irci.-(  ,'u^A5La  TO  INITIALIZE  SCA^,  AZI  E»R0H  = ' , F6 , 3,  / 1 X, 'ELE  V 
lEPKUPi* . '^a,  3) 

201  PQ-^'-iA  r ( IH  'SCAN  Cu'^PLETE. ') 

20i>  PO>?MiT(n  ,'E^O  OF  CNc  AZP'UTM  SCAN') 

1:.'S  f-Qy^ATCl-t  , ' IM  TIALIZATIO'.  ohaSE  COMPLETE.') 

201  p JR'-'AT  (aPa,  3) 

4 R I A s = ? . 

EBIaSs.-). 

Call  exit 
END 


TASK  SCANR 


.title; 

SCA  ^l‘< 

.GLOiU 

sc ANP . 

STATf-:,PNT.ANrtNA 

. ICALL 

EXIT^C 

.PSfTCT 

AMC  . G 

HL.nvR 

r n j V T = 

. * 

A'  TH.  G 

= .>? 

.PStCT 

, = , r 

MPTL 

pc  = ;;/ 

sCftMP : 

JSP 

PC, STATt 

JSk 

PC,  Pi'll 

jcu 

PC, ANTENA 

Out  ; 

►irjv 

A 1 , A N r r L G 

tXlTiC 

NRTL 

.t'lO 

SCANR 

SUBROUTINE  PANTEN 


C T-'IS  S'JBWTJTI.-.E  COVPUTFS  SATELLITE  POSITION  AND  DESIRED 

C antenna  AZI^JTh  anu  elevation 

CONv.On  /TT/T'‘IO,TtTI‘vTF,  T1,TETI3,DT 

CON VON  /A( /4LLAT, aLlNS, ALH AC , R AO , SL AT , SLNG , CL A T , CLNO 
CC.-*“CN  /C/XCC  ic},yC(ic;,ZCi  iaj,AuA(  i^;,ycACl^)/ZCA(12) 

CONVDN  /C/XCB(12},yCF(l^),ZLB(12),KN,IVAR 

Cj^’ON  /CC,'0«C/XSAT,ySAT.ZSAT,XAL,YAu,ZAL,XX,YYiZZ»XXA,YYA,ZZA 
0 04  •''Cn  /Ar.T/AZl , EuEV,  AZl  In,  ELEIN,  SDPIT,DABIT,  ERA,ERE 
C O'.  rCN  / C I a S / a Z B I a S , E Lb  I as  , T 1 B I a S 

CC»-^ON  /satc/xsatc,ysatc,zsatc,otc 

CCVVCK  /B6I/S/AbIAS,EbIAS 
C READ  TlvE  FRON  ThF  CLOCK 

call  CTINE 

C Cr-^'Pl'TE  SATELLITE  POSITION 

X'.AT  = f.fi 
YSATsO.0 
ZSAT=V,r 
Du  1 Isj,R 
Jsll-l 

XAat=(XSAT4aCCJ3)*TETI3 
vSf ^ = (Y5AT4YC(J))*TEI  13 
1 ZSAT=(ZSATtZC(J})*TE7I3 
XSATrXSAT+Xtf IJ+XSATC 
ySiTsYSAT  + YC  ( n + YSAjC 
ZEAT  = /:?aT  +7.C  ( i ) +2sA'rC 

c lcvpote  vector  from  avionics  lap  to  satellite 

XXsy?A7-VA| 

yy=YEf T-yal 
ZZ=/S«T-ZAL 

C RtlATE  VECTOR  IMO  AVIONICS  LAB  COORDINATES 

XxArCLAT*CLf.G*X>+C  L AT*SLN6*y  Y-SLA  T*Z7 
vvf r-SENG^XX  + CLT  G*  YY 
77A  = SlaT*CLTG*X)i  + SLAT*SLT:0*yY+CLAT*ZZ 
C CCiDtTE  azimuth  and  elevation  FOR'  ANTENNA 

AXXAiAHSfxx/) 

AVY  A =AES(YYt) 

A77a=aRS(/ZAI 

aaVasS'.RT  (XiA^XXA  + YYAAYVA) 

A/l  = ATAf,£'(A>YA,AXVA5 
EUEv=tTATZ(AZZA,AXYA) 

C FI  r AZriTf-  I'.YD  CORRECT  fwuADRANT 

J E T ) V A ) 1 Z; , 1 ? , 1 ? 


1 V 

IF 

( Y 

''AJI  3,  ) A, 

lb 

AZI 

- r 

30  • 

/FAC) 

-AZI 

GP 

rr 

1 A 

A7I 

..  f, 

* t 

.(7 

GO 

TC 

t;s 

IS 

A7I 

r M 

Z I 

r-f 

r 

i’b 

lf>. 

IF  (Y  Y 

*)  16 

,17,1 

P 

IN 

A?  T 

r 

le:  . 

/RAC) 

* ill 

(,< 

T r 

f 

1 T 

A/: 

s 1 

Yw  . /A  A : 

/ C 


SUBROUTINE  PANTEN  (CONTD) 


r-n  TO 

1 » iZT  = ( AD)-A7i 

r TEST  TO  hkOM  POIflTI^G  AT  THE  TO-sERS  (276  TO  302  DEGJ 

c‘j  TEtT  it27t./i-  AO 
TEST2  = 3'^c./RAn' 

TEST  Sz-^hP'  . /u  An 

IE  C>-7.1,GT,TESI  l)  r.n  TO  26  ... 

CiG  TO  iO 

26  IP  (A7I.lt. VEST2)  GO  TO  27 
C-C  TP  3^ 

27  lECAZI.LE.TtSTi}  GO  TO  23 
AZT=TeST2 

GO  TO  30 

23  AZIsTESTl 

3C  IFCAZt'lAS.GE.  123.)  AZdJASsiaa.-AZBlAS 
IK(EL6IaS.GF.123,)ELB1A3=123,-FlBIaS 
AZB=.i  l3*A73lAa 
ELB-.i5*EL3lAS 
.‘■Zb=AZH*CPSvELEV)*AHIAS 
AZI=A7 I*fiADtAZB 
FLF/=.*'LfcV*WAOtELP  + EBIAS 
CALL  V-  ' E F C r 
PF.TiJL.'^J 
E^;lJ 


n D o o o r 


"^ASK  HAWAII 


C 

C 


L 


WS/,AJJ  /iNTt-'S  ^CI'Tl^'G  P^GG>’A*1 


T-'IS  Ti'?'' 

GrV 

M n j M , (■ ,;  0 


t'S  iNSIALLfcD  UAQfeH  fHE  RSX-llD  OPERATING  SYSTEM. 
A ' 

ANY 


t • 

T‘  T 


TrlE  cARTH'S  SUKEACE. 


1 r-'JT  uATA  -IAS  JMT3  OF  DEGREcS,  MFTEPS,  AND  SECONDS 


CO'-O’. 

C 

C I’-'.'O  N 

crr-'CN 

c:-  ■!■:  - 

CO  I'-n^ 
CQ'^i'iO.v 
r 'T^  'r'.  , 


COAM'I., 


‘nN 


l- 

C-r 
C J " ' ^ > 
C 0 0 N 

.:  r'  I'j.j 
"'AT  A K 

J A r A H 
PRO 


/tt/T-'II  TETIm,TF,  TI,  TET13,DT 

/AL/ALLAr,ALL:G,AL'^AD,HAO,SLAT,SLNG,CLAT,CLNi, 

/C/xCa2),»'CC12),ZC(l.?)»XCA(12),YCA(l2),ZCAC12) 

/C/vC■U12)»YC^(t2),ZCSC12),K^,IVAR 

/C00'>’O/<5AT,Y5AT,73AT,XAL,YAu,ZAL»XX,YY,ZZ,XXA,YYA,ZZA 
/-.T/AZI,ELEY,AZII'.ELEIN,3D31T,DAblT/ERA,ERE 
/ F L / K , u * '1 

/■4IAo/a/HIA3,ci.3IAS,TI«IAS 
/3^TC/x3Arc.Y3ATC,ZSATC,DTC 
/i'QTI/x  )ori . yocti,  ZOOT  I,  XOOT,  YDOT 
/TDO'''P/'-REro,  OCRuFR,  TOLAY 
/.>TH  TCx  AN 

/ A'jTC/  lOuNT.  I eg 

/ I >L  *1/L.c3,  N.  lEOF  , I A-iFuQ,  IP*^PLG»  IOAY,  IERFL&»  ie»  19,  I li) 
rtOOP/^PR  TLOOP/ 

■RR.oTATr 1 ,P  „TI.OOIT/o»RAPP  , 6RS T a T E 1 , bF pnT I ,bROOIT  / 
-RA.l  Na'E  A‘)i)  I'JSTRiJCTIOnS 


•/'’ITPr.,,  1 
" p 1 T E 1 } 

call  -SSI.'  ^ i,  'OX  ^liOAVEM.OAT  ? 1 15) 

JEFI  iE  -TLr  S(  X -500,  345.  . I,  IV  API 
in:  : T,. LIZ  A mo  RJJTIjE 
r ' * / • 

Ir.O'^=  • 

T - 'Fu  0=  ■ 


I I-  ' f 'J  = ' 
' > R F L ‘ — ' 

’ •n=.'. 

fFTl  's 

r f - 


■ T - 


.1  . 

T E T i 3 - J . 

or  =2. 5 

M.l-AT-3r}.5!»Ap 

'u'.  .Gr-x  l,-’A29 

A A J if'R  . 

. r )b7^. 

1 I R 1 . 1 ? 


111  = 


( I) 
I 

A I 


TASK  HAWAII  (CONTD) 


C M.  L I M 1 A L 

II-T  IrO^'.Lw.  M 3 

•*RITe((j,  SP) 

|.;0  TO  U'i 

F:]P.'aTC'  CA.n  jot  LJOATE  E“,hE'^E:?IS  TATA.  RAPP  C ANOfcLLEO. ' ) 
3 DO  3^  T = ’ , ?.4 
rETIH  = ,5o'.M.*I 
I F ( I . r ! . c?  4 ■)  T ► T I ^ = CJ  *5  5 U . 

n = 1.0  1*1 

TF(  I jT-p-^c^q 

f.ALL  u^reMA 
A L A T s a 1. 1.  ^ T * R A iJ 

VLL'Jtj*RA) 

3?  iPl  I ECS,  P Y.  LES,  JT,  AlAT,  aLWG,  AZl , ELEV 

P.-’D  FO»‘ATCl.i  ,I'i,^?A,I?,dX,IS,?A.r4.P!,2X,r5.0,£jX,F7.2/2X,F7.2) 

- C’lTE'-S.  t-.H  ) 

FT.RM  A r C l ••' n 
r.'j  TO  2 
*'0  call  f.'/TT 

: VJI  F IP.-iaT  ( 33*4  ROOFTOP  A-JTa-jna  pointing  PROGRAM) 

<r\  fC'H'-'AT  C 3iri  SF7  aLL  CQNSJLfc  SnITCMES  TO  ZERO) 

fjR^-iA-'r'  PTLCnp  START  F RROR  ' , 2X , I 6 ) 

E'iO 


S'Jf-i-Ow'"!V£  r ital 


c 

C T*’  IS  t*Oi,TP<F  all  NECF.SSapy  CALCULATIU^S  AND  SETS 

C il;.  ViPUtLfS  TO  T^-F  PE'jUIPLD  STATUS 

C 

CS'.-C'  /AL/ALLAT,ALL^G,Al.KAD,RAD,SLAT,SLNCifCLAT,CL^G 
CC’^''C.'  /CCP‘'t/X5AT,YSAT,ZSAT,XAL,YAL,ZAL,XX,YY,ZZ,XXA,YYA,ZZA 
CC'^C  v /»-C'j'^!/ALAT.Ec,F3,t'P.F5,F6,F7,F8,F9,PlU 
L'ATa  i5 -^I.^T  , £T  ATF  I , r -^T  1/6P43F’InT  , 6RST  ATEl , 6RPNT  1 / 

C C''''\t:PT  L*" '''ilT.iOt  A\D  LAriTUDE  TQ  RADIANS 

1'.  call  ^ ATilO 

ALL  iTri-LLAT/.^AC 
i = A^t  r/p-  u 
Ai.A  T = 9:’.F-Au/  T 
C L L A T = 6 L A T / P A r; 

ALL'  CsaLL'  C-/f4C 

C Cr^PuTt  SI\F  any  r.OSiME  UF  latitude  and  LONGITUDE 

SLA  TrSl'.C  AT 
CLAT=C"5tA) 

F'CP''/T('  AS»'I.vT  start  EPPOP'Y 
SLf'G  = olN(ALLf  G) 
rLLC.  = CCSf  AL  L'-G) 

C Crff'.TF:  L.e  PCSITIOw  in  GECCENTWiC  coordinates 

XAL  = f'LAl'»C-L’''N*»LRA'’' 

V 4L  = !■  L AT*SLN',*  Alp  AD 
ZAl  =?LA 

slat  = Sr-ACLLAT) 

FLAT  = C 0 S ( C I.  L A T ) 
p t T u R ’ 

e-iri 


o o r»  o CT  o o 


SUBROUTINE  HDATA 


SI)»^0’.JT  OAfAIO 

lOAr  - DAY  OF  Thf;  YtAR  STASTIN.G  FROF"  1 JAN,  - INTEGER 
OTu  - ,IT  TI'-f,  MJAS  in  seconds  - REAL 
IblD  - i'lDUfE  OF  TF-e  CURRENT  PFROID  IN  HOURS  - REAL 
FKgn  . CAP^'IER  FREQUENCY  IN  HZ  - REAL 

II  - 1 TO  IMTALIZf  the  disk  FILE,  U TO  LEAVE  AS  IS  - INTEGER 
LEo  - nUHEFR  to  indicate  SATELLITE  UNDER  USE  (8  OR  9)  - INTEGER 

PH  sRELATiVE  Hl.'yiDITY 

RP  sa^S'.LdTE  pressure  IN  MIlLIBARS 
T-'A-}  rTf  ‘ pfRATUFE  I F'  DFGREES  F 
pTN£v5IC.\  IAFAY(3')ei 

CiHiON  /C/XC(1I?I,YC(1c),ZC()?},>CA(i?),YCACUI,ZCA(12; 

CJN-^ON  /C/xC»Clc),vC8(le:),ZCB(12),K-\,IvAR 
CO'-F'C.'  /Fl/K,L»i' 

CO^'^ON  /S.'TC/xSirC.rSATC,ZSATC,DTC 
COf'“CN  /H.IA6/AZeiAS,ElHIAS,T!blAS 
C\  /T&POF/FRFG.  DCHLER,  TuLAY 
c /f’Thn/hf-,  tc,  tk.pa,  an 

/ IClMI/LES,  ifC'F,  la,  15,  IDAY,  lERFLG,  18,  19,110 
/Ai./At  LAT  , ALlNG,  ALRAD,  HAD,SLaT,SlNG,  CLAT,  CLNG 
CP‘';^0N  /TT/THI(),teTIH,1F,TJ,  TETI3,DT 

C'l^-v-CN  /fCUF  1/ AL  AT.F^,F3,Fa,F5,Fb,F•7,F8,F9,Fle 
•'  = 1 

lOl'AYtir  AY 

RFAC ( I,  iri,FV0=!U5 irAy,DTC,FREQ, 1I,LES 
keac  kfffaction  Inputs  a* o prepare  then 

RF-ADC  1 . ' 1^,  end- 1 a)  PH,  1FAF,RF',aZhIAS,ELBIAS,ALlAT,ALLNG 
RLA  [pAL  1.  A T /RAC 

ftLAT=ALLAT-.JR2N3*SIN(2.*RLAT,'t.^t',a323ia*SIN(a,*RLATI 
1 - . ■ r/ z c. ; ' ■/ cv  ? ♦ s I N ( 8 . * R L A T I 
ALRAD  = N3yAl  hi-.  *f. 99632707  i+.U'UfeZoRSP'FC  OS  (2. *RLAT) 

l-.70CC;-3R1R*CCjS(a.*KLAT)  + .zrN^...'i?.Ti:Y8*COS(8.*RLAT)  ) 

r’p  = FP*3<.3e'Sb 
TC=(TFAF-3P.)*5./9. 

TK=TC  + f'73.  If 
4-  1=77.6 
A y 2 s P . 

A<3sufcr  , 

T V = T F A I-  •*  '1 1 0 . 

IF  rTFAP.LT.32..'K0  TO  -jZ 

P.::Rh*1.5il9/*tXP(lh.l79it*CT.NV-590.)/Ty.V) 

DC  TO 

n.isPi-*.  •*'ii.--r‘*E>F  (22.5i.’9i-*(T-'iV-a9?,)/TNV) 
i;t-  A ,sAFl**-P/Tl'-,Ai'2*RR/Ti«*AKi*P^/TK**2 

F K = 

TF  ( ir.A  y.EO.  IOC  a ' im  TO  15 
3 IHG  = . 

JFL&  = 

2 K < = •*  1 

/ RE  ADC  3*1'“  , ENt  =1  OCIAWAytn,I  = l,3a5T 

OECCr-E  '670,1  b.lAPAO  lLES,  C <0- ( I) , 1 = 1 , 105  , ( YC4  ( n , Isl , IkJ) , 

1 C/CAi I), 1=1, 1?), JC4Y 
IFC  JOty-IOAY5'>,'a,6 

b F , = ♦ 1 
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SUBROUTINE  HDATA  (CONTD) 


GO  ro  7 

t)  KK  S KK  + 1 

rn  5 

IF  r JFLG.^t.,0)G0  TC  5 

JFLGsl 
GJ  TO  / 

S IFCLES.FG.eJGO  TO 
1F(1FUG.NF-.1?V.0  TO  B 
KKsKK+2 
iFLGsl 
JFl.Gsii 

GO  TO  7 

b FFAC(3'’^K,tNnsia)(lAi7-iY(n,l  = i,3a5) 

DF.COOF.  ( fa7P,  lARAY)  L Lfc  S , ( XCH  ( H , I = 1 , 1 0 ) , C TC  d ( 1) , 1 = 1 , 1 3) , 
1 (ZCFCn,  1=1,  10),JU4Y 
J = J j 4 Y <•  1 


no  12  1=1 , 

10 

10 

C 0 N T I N L E 

m 13  1=1, 

10 

13 

cn^T I 

lb 

IF  (IMIC/.FQ 

, 2 1 0 

0'.'  11  1 = 1,10 
x=YCa( n 
Y=YCA  c n 
7=zc4(n 
XCACIjrXCnd) 

YCA(T)  = TrHC  n 
ZCACI)=/CflCl) 
xCF(I)=^ 

YCd(n=Y 
11  ZC^C  Jl=,£ 

10  RFTuRr 

C Sl.r  Of  FILE  FI.  AG 

la  leOFs* 

T■Ja^ 

l .Xb  FOF-^AT  ( 1 1 1 . 7Xt  lb.  1^,  bXElh,  10)  » 4X13) 

I M FOWMf  r CI3  / 3 <r  1<I.  7,  3xE  14, 7, 3X  1 1 , 3X  1 1 ) 
t 1?  F 'JR.maTi  7F  K'.a) 
t'iC 
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SUBROUTINE  HANTEN 


Rt.l  h P fjl.1  I I \ t u\iTE''IA 

7«IS  IVF-  CD^f-UTtS  SATtlLHE  POSITION  AND  DESIRED 

ANTENNA  azimuth  and  ELEvATION 
CO -'•'■On  /T  T / Fn  10,  TE  riH,  TF,  T1  , TET  I5,0T 
CON'CN  /AL/‘.LLAT,rtLLNG,ALRAD,RAD,SLAT,SLNU,CLAT,CLN& 
rO*''  .ON  /C/X':(12),'tC(!E).ZC(li:),XCACl2),YCA(12),ZCA(12) 

CCN  .;Gn  /C/xCPCiajfYCdtl2),ZCBC12),<K,IVAR 

LC*''’ON  /C0n'^C/X5AT,YSAT,ZSAT,XAL,YAL,ZAL,XX,YY,ZZ,XXA,YYA,ZZA 
CO^N'-ON  /A\T/AZI,ELEV,  AZIIN,ELEIN,  S OBIT, DA8IT,  ERA, ERE 
Cj‘'"DN  /FlA3/A.ZAiAS,ELEIA3,TIbIA5 

CON  -.ON  /sat:/xsatc,ysatc,zsatc,dtl 

RtcO  TlMt  the  CLOCK 

CALL  CTI'-^F 

COHPuTF  SATELLITE  PCSITION 
X3AT=v-..f; 

YS  AT=  ’I,  I? 

z s A r = ■’ , Y' 

DO  1 
jii i-i 

XSA T= CXSAT+xr ( )*TETI3 
YSAT  = (YSAT  + vCf J) ) *TET  13 
Z3AT=CZSATtZCf  J)  )’»TETI3 
xssr=xsAT  + xc(n  + xsATc 
Y5AT  rySAT  + VC  C 1 ) +YSATr 
Z?at  = /.sat  + ZC  ( 1 )tZSATC 

COHPuTE  vECTQQ  FRCiH  AVIONICS  LAP  TO  SATELLITE 
XX=»SAT-XAt 
Y'i=ySAT-Y?L 
Z7=ZSAT-ZAL 

■JOTATE  VECTC'H  INTO  AvIC^ICS  LAB  COORDINATES 
XXA  = CLA7*CL‘-0*xx+CLaT*SlNG*YY-SLATaZ7 
vva=-SLNP*XX+CLN&* YY 

ZZi-SLAT*CL^O*XX+SLAT*SLNG*VY+CLATAZZ 

CD-'PUTc.  AZI^iUTr  AXO  ELEVATION  FOR  ANTENNA 
AXX-*  = AbS(XXA) 

AYYa=APS(YVi5 
AZZizAPS (ZZa) 

AaYA  = S'".KTCXaA*XXA+YYA*YYA) 
aZTsA|4\t;(AYy4,AXXA) 

ELEY=ATAK2fAZZA,AXYA) 

P.jT  AZr’v.'TH  PTC  CCRRECT  QUADRANT 
I F ( '<  X A ) 1 2 , 1 2 , 1 2 
IF  (YrA)i3,ia,lS 
AZUCiUe./CAro-AZl 
GO  TO  2b 
AZI=2.» 

(iO  TO  2b 
AZI-AZI 
PC  TO  2b 
IF(YYA0  16,  17,  IP 
A7I=( l«Z,/RAD)+iZI 
GU  rC  2b 
AZI-t  KP./2A0 
GO  TC  2b 

AZlsdB.-./WAHJ-AZI 
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SUBROUTINE  HANTEN  (CONTD) 


<:5  AZI  = AZI*P<An, 

FLEv=ELEV*R AO 
IP(ZZA.L7.0.GULEVs-ELtV 
CALL  HFETT 
PFTU^''' 

END 


- - - 1 


SUBROUTINE  HTIME 


Sl'BKOUTir<b  CTIME 

C Tt^TS  POuTTNt:  provides  TIME  FOP  THE  SATELLITE  POSITION  CALCULATION 

COHmCn  /TT/TmiO,  FETI*',  TF,TI,TETI3,0T 
COH'lt.H  /BT#'5/4ZPIA3,ELBIAS,TIBIAS 

common  /C/XC(12),YC(ia),ZCC12)»XCA(12),YCA(l2),ZCA(l2) 

CnM-iON  /r//Cb(12),yCB(12),ZCB(12),Krt,IVAR 
IF  (TETIM,L'".ai20'\  JGO  TO  a 
Ol  IP  1 = 1 , 

xncDsxcBcn 
ycaT=YC3cn 
IP  7ccn=zcD(n 

THID  = (ja«t;;i, 

TT  = a s2?0. 

T F = E (S  N »?  I '■ , 

TE  r.l3=(TETir.i«DTtTI31AS-THID3/216RO. 
return 

R [jC  20  I=l»li3 

xcc  n=xc«ci) 

vr.f  I)=yca(i) 

23  zccn=zcAcn 


TASK  ALASKA 


OLASi^'t  a\te;n^a  PDINTIMG  progh&m 

rwis  fAS!<  IS  1 vSTALLtD  UNDER  ThF  RSX-llD  OPERATING  SYSTEM. 
AL-'S^A  GENF.RATtS  LOOK  ANGLES  TO  lFS  8 OR  LES  R FOR 
A GIVEN  LAT,  LNG.  ANU  TIME, 

INPUT  DATA  PAS  UNITS  OF  DEGREES,  METERS,  AND  SECONDS 
CCn.'.Cn  /TT/TMlD,TfTI‘',TF,Tl,TETI3,DT 

CD--*C\  /ai./aI.LAT,aLlNG,AIRAD,PAD,SLAT,SLNG,CLAT,CLNG 
CC'-  iCn  /C/xC(12),yC(l?),ZC(ia),ACA(iP3,YCA(l2),ZCA(12) 

CC^'MCN  /C/XC:pa?),TCFCl2),ZCB(12),KK,IVAR 

CON-tON  /LOORC/XSA1  , YSAT,ZSAT,XAL,  YAL,ZAL,XX,  YY,ZZ,XXA,YYA,ZZA 
CO^'^ON  /A'nT/a^I,FLEV,  AZI  IN,  ELEIN,SDBIT,DABIT,ERA,ERE 

CT'^mOn  /PL/k,L,m 

CON  m;j\  /iAlAS/AZElAS,eLBIAS,TlBIAS 

cr^'-rN  /s4tc/xsatc,ysatc,zsatc,dtc 

CQN-VO'.  /r'''TI/XDOTI,  YP0T1,ZD0TI,XDQT,  YDOT 
C'jf  /T0DL'P/FPE0,D0PLER,TDI  AY 

CCMnON  /P  TK.fJ/PP,  TC,TK,PP,  am 
/ANTC/ICUNT  , IMFLG 

CO«mOn  /IDuM)/LtS, n, IECF, IA mFLG, IPMELG, IDAY, lERPLG, 16, TR, 110 
data  nTLCDP/hPRTLOOP/ 

DAIA  PAPP.STATE  l.PNT  j ,DOIT/t.WRApP  , fcRST  ATE  I , feRPNT  1 ,fcRDO!T  / 
owCGRA!''  name  AMQ  IiNST'^UCTIO^'S 

call  ASSIU’'  C3,  'DK0:  DAvEm.DAT  ; 1',  IB) 

CL^'INt:  FILE.  3C  13f"r,  5ab,U,  IVAP) 

P.IT  I altzat  I'tn  routine 

F.'CVS,; 

IE(  ^ sM 
lArPl.Gsf' 

IFCALGr^'* 

T-'TC'sv  . 

TFT  INrR. 

TP=.,. 

DT=Z.b 

AlLATsiR.NFHE 
AuL  f G = -8U, k 62Q 
A i_  A „ i s N 3 6 R 7 N 2 , 

A AC-b7.2RB7fi 
L C I 1 = 1,12 

xr  ( n=ii>. 

YCf  n=e. 

zee  I)=-A. 
xcA(n=f. 

V C A ( I)  r ,1  , 

ZCA  f I)= 

XCr  (T)=Z. 

YCj-a)=:'. 

1 ZCECDr.'. 
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TASK  ALASKA  (CONTD) 


KK  = » 

iv«p=e’ 

YSAT  =/. 

ZS‘>T  = l^. 

XiL  =3. 

Y = 

ZALsr*. 
y *•  = . 

''v  = 3. 

Z/  = ^. 

YX*=t, 

Y r A = f . 

Z2t.=i, 

L t V = i . 

AZJI^  = ^^ 

i''=t  . 

set  isst-r'? 

C.At!lT  = p.r3l25 
ERAS'/’. 
tREsC . 

SLATS?;, 

SLr’Gs  j. 

CLA  T = Z, 

CL^G=3. 

K=i, 

Lsn 

AZtIAS  = (t' . 
fe.H.-IASs2. 

TTP  lASsP', 

X3A  ! rst', 

vs/TCsP. 

ZSATCsii*. 

DTCsi . 

yr'CTlsf. 

VDOTIsv’. 

7.r)UTI  = '.  . 
xrnTsD. 

YL'CTs.t, 
t Cf  -rt:  . 

'••■jPLtRs?. 

Ti'l.AY  = 0. 

Pr's.  . 

TFs.  . 

TKr-'. 

P /.  r , 

& ! = >'', 

ru’STsi 

r-iTrH,sC5 

T ros^ifciJ/. 

tall  If  ITH 

IP ( lEOP .Cl  . JY GO  TO  i 


TASK  ALASKA  (CONTD) 


GO  TU  69 

5,.>  CA\  NOT  LOCATE:  fc'FHtMtRIS  DATA,  HAPP  CANCELLED,') 

J ALATr4LLAT*RAD 
AL'  ij=ALLNG*PAD 
wPnE(6,<'/Jl)ALAT 

301  FOE-.^ATCIH  , 'ENTER  INITIAL  TIME  FOR  LATITUDE  ',Fb,l) 

EF  A0(6,  1C?)  ITIME,.ITIME 
1 3?  F^=‘ AT (21?) 

CO  3t“  J = U'J 

TETINr  ifaPC.^ITI^^E  + ofi.^JTIPE 

call  at.  ten  a 

.N-v  I TECS,  21'0)  TOAV,  lES,  I time,  JTIME,  ALAT,  ALNG,  AZI,ELEV 
22'.i  FOWmaTCIH  , I 4,  ?y.  I.?,  2X,  2 i 2,  ?X,Fb.  I,  ?X,F6.1, 2X,F  7.?,  2X,F  7, 2) 
iC  IT  tf'iE.  = TT  T“?  tl 
(.r  TO  2 
t)9  C«LL  EXIT 
5l1 

E NT 


RTLOOP  star-!-  K^pOR' , 2X,  16) 


TASK  WRITER 


CQMflOV  /7T/Tf'Tl.,  TETI'i,  TF,  ri,  TtT  I S,DT 
CCMtiOr  /A'NiT/i.^T,F.LE</,  471lN,tl  F.lN,SDBIT,DA8IT,tHA,tRt 
t"Gij'?  = Tr.  r I •■1/36  If”. 
lHijUR  = hOUf< 

A^1T^.=  (^•Ol.R-IHlluR3*6^', 

I Ns.  A r I N 
SFC=f  A” 

I5EC  = Gf  L 

*RI  I E f A2  I , A/ir;,  ^ K«/  Fit  V,  i;.Lt  IN,  ERF,  IHOUW,  MIN,  ISEC 

a/ui  K A-^r  1-  .irf  '’.3,?x^,'*',?X.3(F6,3.2X),'*',2A,2(ia,';'),I2) 
CALL  EXIT 


TASK  DATA 


I'^PLICIT  Onus'Ll  r-P'SCISION  CA-h),(G-Z) 

Dr-Ff-ST'i:.  TAPpV(35r,r,  ,xC(l2),YC(l?),ZCn2),XCA(12),YCA(l^),ZCA(12), 
lvr.«U2),i^CcCl2:,7C«(i2) 

K -"  = /< 

i CALL  ASSiGKCi, 'OKi'-.D&vf'i.DAI  ; l'»  lb) 

Lt3  = 8 
TPL.G=.' 

U'J=  '• 

LPFii.U  PiLt  ■^Clt.''^£'»A8b,L'fI'/AR) 

^ *•  K = + 1 

7 Pt.Ajf  S'kk,  P'.,G='a)  f lA-^AV(T),  I = l,iU5) 

I'FCnOr  f uB6, 126.  lAf  oY)  Lt.LS,  (XCA  ( I)  , 1 = 1 , IM)  , ( YCA(  1)  , i = l , 10)  , 

1 ( ZL  A ( I ) , I = 1 , 1 , JD  4 Y , JT  1 , J T 2 

I F C L PS  . \fc  . LL t S I 2f?  I TE  ( '5 , 1 :x  1 ) 

.*•'  »*  I T t.  ( b f 1 0 b ) L L c 3 
i.''l  PDF-^UCIHI) 

LES^LLFS 

Ws'I  Tf  (5,  ! (^2)  JOAY 
•.>YlTF(b.  i:'!7) 
n.)  1 = 1,  12 

10  HTEC^,  ' ’o)  xCi  c I)  . YC  A ( I)  , ZCA  C I) 

'-‘VtTc  Cb,  i:’8)  JT  I,  JT2 

l.ja  PGP'ArCln  , ' mE; A3,  A4//) 

= I 

b “^EAQ(i'A^,£^0=U}CI4RAVCI),I  = l,iab) 

OECQG- (u8b,  1 3b,  I A4  4Y)  ul  ES,  ( XCbd  ) , 1 = 1 , 1 0) , ( YC3(  I) , 1 = 1,  10)  , 

1 CZCbC 1 1 , 1 = 1 , 101 . TDiV, JT  1 , JT2 
.•>;nFC3,  135)Li.ES 
•■-’I  TE  d,  1 '?)  JC  AY 
ITECb.  U'7) 

DO  20  1 = 1,1.' 

2 3 RdECS,  1 At)}  xCbC  T)  , yC2  C n , ZCbC  I J 
>;pITFC3.  1 1 3)  JTi,  JT? 

11''  FTP-ATCl-J  , 'T  IBf  . 43,  A(4/////} 

G3  TC  2 
16  IcCP=l 
CAuL  EdT 

1'2  EOF'^ATCl?'^  LAY  \0tt2E8  IS/) 

10=  Ef.'Pf-AT  (15^’  SATtLLiTt  LFS-Il) 

1,0  E . 'r*  f A T ( 10  Y , I 1 , Y V E 1 0 . 1 , 2P  ( ^ X r 1 1. . U1 ) , u X I 3 , A 3 , A a ) 

107  PCP‘'AT  (17t-  y COEEFlCIE'iTS,  1 IXiahY  COEFFICIEMS, 

1 1 1>  ItihZ  CLEFE  ICIEf  73) 

120  EOF  • i I dxE  1 7 . 1.  , PV,  LI  7,  10,  ex,  E17.  U') 


ni  F.;  E ■ /.Tf30*,  'F.''.  E.PHE'LETF  EOF  DAY  ',16) 

E .r 


AD-AOi*?  999 


AIR  FORCE  AVIONICS  LAB  WRI6HT-PATTERS0N  AFB  OHIO 
rooftop  antenna  pointing  PROGRAM. (U) 

NOV  77  P F HUMEL 


F/6  17/2 


TASK  BLODAT 


::at4 

tihis  'ROUTINE  Initializes  all  com^-ion  blocks 
rCjM!".n,s  /TT/T  'ID,TETr^TF,TI»TETI3,DT 

CTilF.''"-  /AL/AuLAT,4LLNG,  AL«AD,RA0,  slat,  SLNG,CLAT,CLNG 
COMMO.  /C/XC( la), y:(1?),ZL(12),XCA(12),YCA(12),ZCA(12) 

C^JVM',‘1  /C/XC'<C12),YC8(12),2CH(]2),KK,IVAR 

/C00R)/XSAT,YSAT,ZSAT,XAL,YAL,ZAL,XX,YY,ZZ,XXA,YYA,ZZA 
CCf  ':r‘  /aNT/6ZI,ELEV,  AZir'J,£LElN,SO0IT,DA8IT,LRA,ERE 
Cr^Mn.-v  /FL/K.L,-*" 

C0‘  -t(  /PIAS/AZBlA5,EL8IAS,TIdlAS 
CO'‘>irN  /SATC/XSATC.Y3ATC,ZSATC,LTC 
CC^  f'CN  /OQTI/xOOTI,  YULTI,  ZOOTI,  XDOT.  YOOT 
COMfvjM  /TODLiVFRt.5,  DQOLER,  TDLAY 
/FT  hM/PP,  TC,  TK,  P N,  AN 
CO^'I-On  /ANTC/IOU.NT,  INTFLG 
Cf»n\  /bOIAS/ABIAS.EBlAS 

tQ;  -CN  /IDtJf^l/Il,  12,  n,  la,  15,  16,  17,  18, 19,  Iia 
LL";'(.'N  / I Dlit^2/ I I 1.  112,  113,  II  a,  1 15,  116,  117,  118,  119,  120 
CL^^  LN  /PL'LF1/F1,F2,P3,F4,F5,F6,F7,F8,F9,F10 
CO^  ‘ c:n  /FC!'^<2/FU  .F1?,Fi3,F14,F15,F16,F  l7,Fie,F19,F20 
data  TMD,  rE7lN,TF,TI,  rETI3,OT/5*0.^,2,5/ 

CAT  A all  AT,  AlL'-o,  ALR  AD,  RAD/-39. 5682, -84. 0829,  6369762,,  57, 29575/ 
data  yC, YC,ZC,XCA, YCA,ZCA,XCB, YC8,ZC8,KK, IVAR/108*0.0,0,0/ 
data  X5AT,ySaT,ZSAT,XAL,YAl,ZAL,XX,YY,ZZ,XXA,YYA,ZZA/12*0.0/ 
r'ATA  AZI,tLEY,  AZ  I In,  FlE  IN,  SD3  IT,  DAB  17/4*0, 0,  . 549325^-02, 0.03125/ 
DATA  KF  A,  EFE,  SLAT,SL.SG,CLAT,CLNG/6*0,0/ 
data  ^,L,'-,A7BlAS,ELblAS,TlDlAS/ 0,0,0, 3*0,0/ 

TATA  A£ATC,YSATC,ZSATC,DTC/<i*0,0/ 
data  XCOTI, Yt  0TI,ZDCT I,XDOt,YDOT/5*0.0/ 

DATA  F F E G , P 0 P L F K , T 0 L A Y / 3 * 3 . 0 / 
data  Ff,TC,TK,P^<,AN/5*0,0/ 

DATA  ir JNT, P TFLG/0,0/ 
data  ABlAS,fcBlAS/2*0.0/ 

data  II,  12,  13,  I iJ,  15,  16,  17,  18,  19,  110/10*0/ 

LATA  in,  1 12,  1 13,  1 1.4,  11  5,  116,117,118,119,120/10*0/ 

data  FI, F2,F3,F4,F5,F6,F7,F8,F9, FI 0/10*0,0/ 

data  fi 1,F12,F13,F  U,F 15,F16,F17,r 16,F19,F20/I0*e,0/ 

END 


'1 
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PROGRAM  PAUL 


.TITut:'  TAPE  PPI  mT 
.PSECT  FTNCOM.G'^L/OVt? 

F fNHUFs.+H 
, = . + l?iBP, 

.PSECT  MAIMPROG 

.^CALL  . INI  T, , than, .WRITE, ,« AIT, .EXIT, .RLSE 
.^^CALL  .OPEN, .CLOSE 

» 

BEGIN; 

CLP  P2 
.INIT  «TAPf 
,IMT  KpR\r 
.OPEN  tfPPNT, #PPNTKB 

FRECO; 


HQV 

»oP/:.,TCNT 

.TRAN 

atape,atapeib 

* 

.WAIT 

ATAPE 

HIT 

BEQ 

IS 

TST 

Ra 

BnE 

EFIl.E 

TNC 

R?. 

l-« ; 

C'-'P 

BUFR  + a,  A''EP 

BNE 

ERECO 

MOV 

AFTNPuF, RO 

MOV 

ABUFR, P 1 

rO.jT; 

MOV 

A-690. , FTNCnT 

MOV 

(RDt,  (ROif 

INC 

ftncnt 

PNE 

CDMT 

• 

MOV 

e690. , CNT 

.WRITE 

<iPRNT,rtPR  U3F 

.WAIT 

arrn  r 

$ 

PR 

EPECO 

EFILF.! 


t 

0 

.CLOSE 

wPRNT 

.PL5E 

«T  APT 

. R L S E 

APRnT 

U; 

BR 

as 

* 

B» 

IS 

NGRPS  J 

. K 0 R U " 

101  . 

NWECS : 

. aORP 

■21. 

F fNCNT; 

. A L R D 

0 

jREAO  DETAIL  REC 


;fAAGTAPE  CSR  TO  CHECK  FOR  EOF 
jTEST  IF  SECOND  EOF  ENCOUNTERED 
I TEST  IF  SECOND  EOF  ENCOUNTERED 
;iF  TRUE,  CLOSE  FILES 


»MnvE  TO  FORTRAN  BUFFER 


; ww  I TE 


PROGRAM  PAUL  (CONTD) 


I 


I 


^CMT;  0 

;TAPE  LINKBLOCK 


,^0RD 

0 

TAPE; 

.WORD 

0 

.RAD50 

"TAP 

.WORD 

1 

* 

.RAuBD 

"MT* 

jPRINTfcR 

linkbuock 

.WORD 

n 

ORNT  ; 

. wORO 

y 

.RADBW 

"PRT 

.WORD 

1 

.RAD5kj 

•DK“ 

f 


;TAPE  TRAN  tiLOCK 


TAPETH; 

.WORD 

0 

.WORD 

PUFR 

TCNT  J 

.WORD 

0 

.WORD 

a 

> 

jPRINTtR 

.WORD 

0 

BUFFER 

ppntbf  ; 

.WORD 

1380. 

.WORD 

0 

CNT! 

.WORD 

0 

BUPP; 

.BLKw 

690. 

J 

jPRINTER 

FILEPLOCK 

.WORD 

0 

.WORD 

2 

PRNTFB: 

.RAD50 

"DA  V" 

.RAOBy 

"EM" 

.RADbJ 

"DAT** 

.WORD 

0 

.WORD 

0 

.END 

BEGIN 
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PROGRAM  RCA 


IfiPLlCIT  OOUdLF  PWECISIO^.  fA-H)/(0-Z) 

D I ^■ENSIGN  1 AWAY  (35k))  , X ( 30 ) , NEL  ( 420)  » NUM  ( 1 000 ) 

SET  UP 

CALL  ASSIGN(3,'i)K0jDAYEM,DAT',13»J) 

DEEINiE  file  3(1200,3-45,0, IVAR) 

CALL  ASSIGN  ( 4 , ' Dk 0 : RC A , L ST ' , 1 1 , J) 
l«RITE(O,202) 

202  FORMAT (IH  ENTER  OAY  GF  YEAR  AS  ODD') 

REAL)(6,  100)  IPAY 
130  FnR’^4T(I3) 

KCl.'Msl 
KK=  1 

READ  EPHEMERIS  DATA 

1 REAC(3'KK,END=14) (IAHAYCI), 1=1,345) 

DEC0DE(6e2, 101, IARAY)LES, (X(N),N21,30),JDAY, JTIME 

101  FOR  4AT( 10X, I1,7X, Eld. 10,29(6X,E16. 10) ,4X, 13, IX, 12) 

IF(  JDAY-I')AY)2,3,2 

2 KKri<.K+l 
GO  TC  1 

3 KK  = ><><  + 1 

SPOLL  OAT  A ONTO  DISK 
-RI  TE  (4,2'^0)KOUmT,  ( X ( n)  , Ns  1 , 30)  , JT  I ME 
200  FGR'-Af  ('ORBIT  Ml,'  ' , 6 ( 5 ( G 1 7 , 1 0,  ' ' ) / ) , 12,  ' I 00 1 00 , 000' ) 
KCUNTSKOUUT+  1 
if(kcjnt,lt.5)Go  to  1 
GG  TO  35 

34  wpitE(6,201) 

an  FORMATdH  , 'COULD  -JOT  LOCATE  EPMEMERIS  DATA  ON  DISK') 

35  K no NT si 
LTHsl 

REaD  Data  QPF  DISn 

4 REAO(4,102)(NEL(I),lsl,73) 

102  FOP  1Ar(8Ai,lX,4(liAl,5X),l3Al) 

REA0(4, 103) (NFL(I) , Is74, 138) 

103  F0M'44T(1X,4(13A1,5X)  13A1) 

PLAD('4,  103)  (NEL(I),Isl39,203) 

READ(a,  U'3) (nEL(I),Is204,268) 

PEAO('l,  103)  (NEL(  I) , I = 2(>9, 333) 

PEA0(4, 103) (NhL( I) , 1=334, 398) 

RE AD( 4, 104) (NEL( I) , 1=399,410) 

1 34  ^ORilA  ‘At) 

SF 

IF(n.E  ,nE,'1')N'LL(399)='0' 

Isl 

J = 0 

n s'6' 

Ir  (LTR.FG.UrUMd)*'?' 

IF ( (LTR.EO. 1 ) . And, (kOunT.GT,  1) ) I = M 
CONVERT  ASCII  TO  BAUD-O 

5 IsI+1 
JsJtl 

IF(J.GT, 410)00  TO  25 
N = 'c.L(J) 

IF(n,E4i. '0')G0  TO  d 


PROGRAM  RCA  (CONTD) 

TO 

1 

IF(N,PQ.'P')GO 

TO 

8 

IP(N.tQ.'l')&0 

TO 

9 

T^‘C  'l.tG.  'T'K^O 

TO 

ta 

IF  ( -J.tQ.  '-'}GO 

TO 

11 

IFCrJ.tG.'.'lG^) 

TO 

12 

IF(M.EQ.'ii')GO 

TO 

13 

IF  CFi.cG.'l'IGC 

TO 

19 

IF(  'J.F:Q.'2')&n 

TO 

IS 

IFfN.EU, '3'}Gn 

TO 

16 

IFC'^i.EQ.M'JGC 

TO 

17 

IF  C -J.FQ.'bnGO 

TO 

16 

IFC’^tQ.  '‘I'lGQ 

TO 

19 

IF(N.c;0.'7'JGC 

TO 

20 

IF(>J.FQ.'6')G0 

TO 

21 

IFC  J.feQ.'9')&iJ 

TO 

22 

IFCN.tQ.'  '3  GO 

TO 

23 

IF  ( J.F.y, ' : ')Gn 
WRITE(6,2vl3)''' 

TO 

29 

213 

FORlATdH  , 'ERROR- 

■ INVALIO  CHARACTER  IN  INPUT  FILE 

N'J^Cns'X' 

1 = 1^1 

GO  TO  5 

6 

IFCLTK.EO, 1 jGO 

r-4.jMCi)s»v^ 

LTR=1 

Tsltl 

TO 

6t3 

6b 

NJM(  Ds'O' 

GO  TO  5 

7 

IF(LTR,EG. 1 )GC 
NlJ«(I)s'?' 

LTRsl 

1 = 1+1 

TO 

77 

71 

N na'T' 

GO  TO  5 

R 

IFCLTR.EG. 1 TGO 
NUR.C  1 T ='7' 

LTksI 

1 = 1 + 1 

TO 

88 

f'S 

^)u^'(n  = '2' 

GO  TO  5 

9 

IFfLTR.EC, i;go 
*4um(  ns'?' 

LTRsl 

1 = 1+1 

1C 

99 

I)='L' 

GO  TO  5 

IFCLTF.tO.  UGO 
nu'IDs'?' 

LTF=1 

1 = 1 + 1 

TO 

U’lO 

•"ir 

^'Gf'C  !)  = ' J ' 

GO  +0  5 

1 1 

TF(LT**.tr.f  )GC 

TO 

1 1 1 1 

PROGRAM  RCA  (CONTD) 


S LT»=0 

! 1=1+1 

I 1111  NUKIJs'F' 

[ GC  TO  5 

12  IF  CLTR.tG.inSO  TO  1212 

f NUM(r)='6' 

\ LTRsp 

r 1=1+1 

' 1212  MJVCIJs'fJ' 

GO  TO  S 

13  IFCLTR.EO, 21)00  TO  1313 
f.UKCn='fe' 

LTR  = 7! 

1 = 1 + 1 

1313  NJ^-CDa'-' 

GO  TO  5 

la  IFCUTR.EO.glGO  TO  uia 
fvUf^(I)='6' 

LTRS0 
I = T+1 

UU  NUMCDsV' 

GO  TO  5 

15  IF(LTR.tG.0)G0  TO  1515 
NJM( I)='b' 

LTRs^* 

1 = 1 + 1 

1515  N'JkCDs'S.* 

GO  TO  5 

lb  IFCL^O.tQ. -5)  GO  TO  1516 
\UM( I}a'6' 

LTRsO 
1 = 1 + 1 

1610  NJ'iClJs'd' 

GO  TO  5 

u ifcltr.fo. .o).;o  TO  i/i? 
.'JU-'dJs'o' 

LTR=  ' 

1=1+1 

1717  N.iMCDs'l' 

GO  TO  5 

18  IF(LT»<.fcG.  ’)GQ  TO  1618 
NUy( I)*'6' 

LTRsO 
1 = 1+1 

181=  NuM(I)='l' 

GO  TO  5 

IP  r=CLTK.EG,  'JGO  TO  IP  19 
NJ'KDe'b' 

LTt^at 
1 = 1 + 1 

1919  NL"^(I)«'+' 

GO  TO  5 

22!  1+ f uT-j.fcC.c)  30  TO  2223 


PROGRAM  RCA  (CONTD) 


NUf^CDs'b' 

Lr«st 
1 = 1 + 1 

2020  NUM(n  = 'N' 

GO  TC  5 

21  IPCLTS.EQ.tncQ  TO  2121  i 

NUN‘CI)='b'  ! 

Lrf?a0  I 

1=1+1  I 

2121  NU'^(n  = *U'  i 

GO  TO  5 1 

22  IF(LTR,EC.0)&G  TO  2222  ! 

NijK.(I)s'6'  I 

lTRs0  ■' 

1=1+1  ! 

2222  NU‘^Cn  = '0'  ( 

GO  TC  5 ! 

2i  IFCLTR.EQ.UGO  to  2323  I 

LTR=1  I 

I=I+t  I 

2323  NUi^dJs'H'  , 

GO  TO  5 

24  IF(lTR.EG.03GQ  to  2a24 
NJ'-'C  n = '6' 

LTRs^ 

I = Itl 

iH2u  N'J+!(I)  = ']' 

GO  TO  5 

2b  IFClT  + .EQ.DGO  to  2b25 

NU^(I)  = '?'  'i 

LTR  = 1 ,t 

1 = 1+1 

2525  iS.U'^CDs'P'  P 

DO  30  J=l,2  3 •; 

1 = 1 + 1 

30  NUM(TJ='H'  h 

O OUTPUT  TU  ->APER  TAPE  ■ 

CALL  10(I,UUMcn) 

KOU^TsKOUNT+l 

IFCKOUNT.LT.SjGO  TQ  4 [| 

call  •'.XIT  Ij 

END  B 


!i 

i 

p 
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SUBROUTINE  10 


.title 

t 

.GLOBL 


I: 

NJM  • 

j 

P:)B; 

10; 


LOCH: 


P-JNCH  j 


in 

This  phookam  ptPFORMs  a dirlct, 

10,1, NUM 
RL'  = %8 


Rl  = %l 


unformatted  output  to  paper  tape 


H5  = %5 

SPs%6 

.hORD 

0 

.BLKH 

10011, 

, ^ Oh  D 

177564  ; 

,*>0^0 

177560  J 

Mu«/ 

R0,-(SP) 

MOV 

R1,-(SP) 

•lov 

Rd,-(3P) 

MUV 

d(R5) ,H0 

MOV 

(R0) , I 

HOV 

a(R5) ,W0 

'"OV 

#NUN, R 1 

''av 

1,H?. 

MOV 

(PHU,  (Rl}  + 

DEC 

K2 

BNE 

LOOP 

MOV 

PNuM,Rl 

rSTb* 

tfPSR 

riPL 

PUNCH 

MOVH 

CR1)+,PP05 

TSTd 

(Rl)  + 

DEC 

BNE 

PUNCH 

MOV 

(SP)+, R2 

MCV 

CSP)+,Rl 

mC  V 

CSP)+,R0 

177554  FOR  HIGH  SPEED  PUNCH 
177556  FOR  HIGH  SPEED  PUNCH 


\ 


PROGRAM  TRW 


DIMENSION  IARAY(682}»M(640} 

CALI.  A8SIGN(3,'DK0tOAVCM.OATM3#J)  | 

DEFINE  FILE  3( 1000» 34S» U, IVAR) 

READ(6» ie0)lDAY 

100  F0RMAT(I3)  j 

KOUNT*l  ' 

KK«i  j; 

I READ(3*KK,EN0«U)(IARAY(I),I«1,3«5) 

DECODE(682,102#IARAY)LES, (M ( N) , N«1 , 30) , JDAY, JTIME 
102  FORMAT(10X»Il,7)(»E16.1D»a9(6X»E16,10)f4X,I3,lX»12) 

KKiKKfl  !! 

IF(J0AY-IDAY)1»3»1 

3 DCCODEC6a2rl0UIARAY)(M(N},NBl,682) 

101  F0RMAT(682A1}  ! 

GC  TO  4 H 

14  MRITE(6»201)  !| 

201  FORMATdH  ,*COULD  NOT  LOCATE  EPHEMERI5  DATA  ON  DISK')  IJ 

CO  TO  1000  I 

4 I«036 

M(683)*'0*  ij 

M(6B4)«'0'  i! 

MC685)*'0' 

MC686)«*0'  i 

DO  10  N«687»636  J 

10  M(N)«"  l| 

CALL  10(1, M(l))  1 

KOUNTBKOUNTtl  I 

IF(K0UNT.LT,5)G0  to  1 ;| 

1000  CALL  EXIT  I 

END 


RMwniit 


PROGRAM  SATSPT 


IMtGtW  OUTC'PT,PLTPLG,PLT»^TS,StNSE, SALAT, SSLAT,SVLAT, 
1SAL0^G,S3L0^G,3VL0NG,0EC0^ 

0I.''EnSI0iN  ZErAC255  3 ,PLTLAT(36aj  ,PLTLNG(362) 

^'1  = 1 
N‘Ds5 

1 PEAJC^.I,  llil,ENi)=i:^30)OUTQPT,ZETA 
IP  (GJTOPT  .LE.  5)  G.T  TO  2 

•^^ITE  CMO,  222) 

GO  TO 

2 J=.t 
NELEVsO 

5 Isl 

L T T S = 0 
ITEPs9PP'9 

IP  (J.GT.l)  ITEPsZITEPf . I 
N = Z 

C IP  ‘'PkE  LO■^GITUOE  1TE«AT10NS,  SHANJCM  AHEAD  ELSE  PLOT  ISO-CURVE 
IPCl  .GT.  ITER)  GO  TO  ) I 
111  »RITE(mo,200)ZPTA 

IP  (rjTCPT,GE.2)  ^RITP  CH0,2US) 

WRITE  (1C,2J7) 

■•iRTTtC''J,210) 

i.RlTt('"0,22.^) 

11  IPCl.GT , ITEP)  GO  TO  11 
IP  (I.GT.n  GO  TO  22 

11  IFCJiJTGPT  .EQ.  i .ANP.  PLTFLG  .NE.  « .AND,  I ,NE,  1) 

KCALl  HLTISUCPLTL^'G,PLTLAT,PLTPTS) 
ii-Cj  ,le.  nllev)  go  IC  13 

READC  i,  ! 2k  ) NHCUW,  ^!.-'I^,  NSEC,  NPDF  , AL AT,  ALONG,  SLAT,  SLONG,  H,  HEAD, 
XRAO,D  IE,  VAP'^AG,  PITCH,  PLTFuC,  REM  ARK 
IF  (N'^ir  .uF.2)  GO  TO  12 
•■HITE  f ^0,223) 

GO  TO  1.1Z0 

12  tNHC-iJR.NE.RR)  G'O  TG  15 
IP  CNi.E  ..y'J  Gu  TO  1 
•«PirE  (mq,277)  ZETA 

IF  (0UT0‘5T.GE.21  aHI  Tt  (MO,  21^5) 

GO  TO  1 

Ij  IP  ( ! .EO. n GO  TO  15 
T-ETATrrHfITAT+ELSTEP 
IP  (THE  TAT.  Lb.  9 0,0)  GO  TC  1 '4 
HITE  (MC,22P) 

GO  rc  lO-'fi 
U JsJ*l 

TP  (^.’^N.i)  ^RIIF  (MG, 270)  ZETA 
IP  (N.1E.0)  .-WITE  (MO,  205) 

IP  (J.GT.'iELEv)  GO  TO  5 
(iO  TO  3 

15  VLATski,  ' 

VLONGS0, 0 

IP  (nuT0PT.',t.2)  GO  TC  16 
Z1  sA55(  AI.AT) 

IP  (Zl.LF.oi.Ot  GO  TO  16 
rtRlTt  (•■:0,22<J) 
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i 

I 

1 


1 c 


I? 


C ShT 
2C 


C 


G-'  TC  1.'''/ 

Zi.  = Ac^  C'^L^^T) 

Ir  (/li.l.t.f’e.  ) GO  fU  17 


GO  TO 

:=  cj.t'..n  GO  rc  ih 

ALONGrALtULO 
GO  TO 

U'C  G3  ro  20 

4L.4T  = Ct'  PLf  aLATI 
ALC^^,  = ^u■^CE(ALn^G) 
SLAT=cuf  rf'(SLA7; 

SLO'.Gsr  ^ r-GF.CSLC’-.G) 

IFC  ^P‘:P  . fci..  n GO  TO  2J 

IP  (U'jT.PT  .Lr.25  GO  Tu  19 
wp  I re  I ( L', 

GO  TO  loco 
VLAT=ALAT 


Vuf'f'GsALu'NG 
T AKvAlj 

IF  (TkL'F  .GT,360.  TFcE  = TkUL-.56£!,3 

;p  (TFUF.LT, :».(,)  TFcJEsTFOE  + Aoij.f.' 

ALATsvL;T  + CME*crsD(TP^fj/6;;.<.’ 

ALJNG  = VLC^G-[.^E*SI''iD(fFuF)/CGSD((ALAT  + VLAT)/2,3)/60,0 
IFCALCNG.GT,  160. 0)  ALC‘.G=  ALCNG-i60 , 0 
IP  ( ALoF  G.uT  .-16C*,0)  ALCf  G = 360.P+ALONG 
ST4&F  PLOT  corves  TO  COF'E 

IF  (OITGPT .LT.21  GO  TO  21 

I=-(OurCPT  .to.  2 .A^D.  PLiFLG  .NE.  v!)CALL  FLT  SE  i ( SLONG,  SL  AT ) 

STEPsiL  A T 

AlAT  — c/.C 

T-'ETATaPITCr 

PITCArr.'-’ 

ZITtRxrFA:. 

ITFnsZITE  . + . 1 
r-PA  Jsa.  • 

ElSTF.PsV  AR'-’AG 

IF  (OJTCPT.NF .31  GO  TO  22 
NELcvs  n.vEf.l 
D'-’Esa.  '2 

AL"'OLOsil,''Nki 

GO  rc  22 

a = «?  *.'1- Ai.AT 

As9?.c-SuAT 

HOLO  = <..; 

N p L A G s 2 
T-^ETAsThf  TAT 
CELT AsalONG-SLGFG 

IFTOElTA.cT.  F.0)  OELrA=360.0+DtLT a STATEMENT  DELETED 

IP  (0070^1.11.2)  GO  TO  ai 
IF  (m.gf  . ’.;;)  GO  TO 
■.JIIE  ( '.22A) 

G-^  TO  IT,'.) 
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PROGRAM  SATSPT  (CONTD) 


IFOKLI’i..T.i?.-.?)DLrAri6C.3  + CtLTA 
A-ACX  =ASI  l*C0S'')f  7HtT4)/(Ht3^ai  . 1)  ; 

i-AiAtX-THtTi 

Tc3^=5I  V)C A)*5I‘  DC  CLT A) /SI NO (GAMMA) 
ir  (TtST.^r.  1..’')  GO  TO  6S 
IP  (Ti;5T.l.T.-l..)  Gj  to  (yb 
A'.PMAiAsiNOCTLST  ) 

IP  (A.GP.^.l.t*)  ALPHAS  IHO.r-ALPHA 

IP  C OL'"  A.LT.-.On  GC  TO  3fc 
Ir  ( 0LT4.GT..01)  30  (0  34 

^p  ( i . GP  , t?)  :^sA-GAMMA 

TF  ( A.;.". SsA  + GA^-^-a 
30  TO  3F 

34  C )LT-a.lT  . 17N.Q<?)  go  to  3b 

IF  ( JLTA.GT,  ld.',i6l)  C-O  TO  3b 

MsGAf'-A-A 

IF  (A.'.r  . GQ  TO  3o 
A 

^F  C=».lF.  .’J  ^ = 

IP  (O.G-^.  1 P=S60.i.-!i 

3)  TO  3rt 

30  b = 2.0-^ATA  lOCSiNOC  .‘3*  ( CLT  A+ ALFriA)  ) *T  AND(  ,5*  (GAMMA-A)  ) /SIND(  .5* 
1C  0LT4-Au®H.On 
39  IF  CG«:;pa.lT.A)  rFL4G=l 

IPf  ( i90.  ‘I-A)  . LT  . GAM^M;  ^r  L AGsO 
IF  Cb.GF.  .0  GO  TO  40 
IF  (A.L  J.P^..  ) GO  TO  S'j 

hOlO  = alo''G 

AlO  JGsAL  0 .3+  1 A'j.  0 

IP  C Along. GT  . 1A,>.  ALCFG  = Al.nPG-36<5.^' 

ntLTA=  .uO  v3-4Lnrjc, 

C TA(0EuT4._T.  .',.(1)  OlLT  A = 360,tHDtLTA  STATEMENT  DELETED 

N K L A 3 = d 

■4^  A I,  A r 3 TO  . 0-13 

C **■»■**%**♦**  + •«»***  MAM  CHAtjGE*-***************************** 


41  C-LL  A?I  ( A , (3.  A'.aT,  SL  AT,  Of  LT  A,  alpha  ) 


ILl 


4 0 GammasAL  IS  )(C!lSn(  A)  *GQG0(b)3-SIND(  A)  'kSIN'[)(B)*rDS[)(DELTA) ) 

GC0  = G.i.0»'jAMM6 

Slm  nTs  G;-.'-,  T + C 1 . 0-C0?0(GAHMA)  ) * ( ht3«41 . 1 ) ’»'b9P^,^) 

THt.TAsACOSOC  (H-r3aal  . 1 ) *SII'.D(&aHMA)/SLAMT) 

IF  C CIOSOCGA--’^  A)  ) ,LT.  (34/il , 1/ (H*3a4l  , 1 ) ) ) THETA  = -THETA 
.>MAF»so-i.  '*ACQS’ (.b4iTi3*C0SD(M)  + .7b8ia*SIN0(B)*C0St)(  4BS(  AL0N6-fl4 
1^5))) 


7 H s H E A (3  - V A '4  M A G 


IFC  TH.GT.  3b''','')  TtisTr(-3bO.O 
Ip(  I H.i.i  . .^)  T«  = T-i3.3oU.i- 

kSEAPsALPHA-T'-, 

IP(kdEA>-.  .Gr.io'l.i)  RdtAkskHtA;<-36lt',/ 

IF  (RHEA  4.  lT.m.  7)  PtiL  AkrRHEAhf  36  0.0 
Ic-(/AwMAG)  '3S,bb,S7 
o 3 0 P ' S E = ^ n r. 

G J r . ■ 6 ' 
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b S c S t ~ ' 1 III 

fio  TO  ’,} 

■j  / S E S E = e?  ’ ' ' ! 

SI  VA^^'■1Ar,s  Abs  C A'^.,AG)  i 

T -E"^  at  =7  Mh,TA-  .T  VNDCT  AM‘)(HlTCHj*CC;SD(RdEA‘?3  ) 

II-  roijjQPT .e-^,1’1}  GO  rn  7^1 
C dVvE  ^I.OT  047  A IS  OECI  -UL  fCf<Si 

t’LTPTSsPLEPTb  +1  - i; 

Pl.PL’'-(,(pi.TO  10}  = XInChs  c ALONG,  At  A T , Y I NC  nS ) ^ 

plTl A r (Du rPT5)= , I jcdo 

C D..OT,  oU'^  ■'  pKl-f?  yes,  cJPA'  Cd  AKGLNC  drinjT 
IrfPi.7ri,  0 ,E0'.  ;}'jU  to 

SAL  ATsOPEON  c A1.A  I , .SAuAT  , p AI.A  T , i ) 

SSi  AT  = l)ECON(SLaT,  NSi.AT,  'SLA  1 , 1 ) 

S ,LiT=OLCno(  VI.A  ! , NVLAT  , "'•VL  AT,  i j 
SALO'S  GrDECONC  ALONG,  vAtC'NG,  NaLOoG,  2) 

EsLL’  0-  yf  OGMSLCNG,  !■  S LONG  , sNSLONG , ? ) 

S vLONGsOr.CONf  vLor.n,  NVLGnG,  ^VLONG,  2) 

G j TO  ('0 

oS  S AlONi,=  .'cCO.-.C  along,  NAuC  JG,  maLONG,  2} 

C-'L',26v  ) NALONG,  malONG,  OALONG,  THETA 
CO  TO  PX 

N6  ' M ft  era.  P VT}  ; -O'UH, ''T  N,  NSEC, ' aL  AT  , MmLAT,  SALAT,  TH,  PITCH,  NSL  AT, 
r^3LAT,'SLAT,h,SLA.>JT,T|H£TA,THfcTAC,ALPhA,PbEA«,NVLAT,M.VLAT,SVLAT, 

2 P A 0 , 0 *'  T , V A R H A (y  , S t’  N S F , ■*  D A F d 

VVA  TTf  Cr-Q.  .iaT)  ^ along,  ,•  A LOO,  S ALONG,  NS  LONG,  MS  LONG,  SSLONG,  NVLONG, 
l-‘VLGr-.G,  SVLONG,  GCO 
IP  ('PL-N.EO.n  rtPTTL  (NO, 243} 

IF  CNFLAG.Fg.2}  ITE  (NO,  2C4) 

'•HITE  (NO, 245)  P'EO.AN'< 

GO  fC  PO 

7 I ‘'OITF  (s  n.  250}  f •iOuM,NHIi',,o-.‘'EO,ALAr,TH, PITCH, SLAT, H, SLANT, THETA, 

IT  - A I ftC  . „lPha,s'‘EA4,  VLA  T,  RAC,  G*-^E  , V ARM6G,SENSE,  ■'iPAFB 
^kITF  r £>s'7:  A|  0^G,  SlOnG,  VLONG,  GCD 
"PITF  (‘0,245}  r'ENish 
rt  * '•  = + i 

IF  (O'Jl  JkT.LT.c’}  go  to  0(5 
1 = 1 + 1 

IF  CNFuAG.rN.O)  AL^NOrHCLD 
4L0NG=^'LC“yG  + STLP 

IF  ( ALCr'.G.fn  . 152.  C)  ALC^  G = Al(.nG-360.f 
ircALO  .(;.Lr,-iH.'.(’}  alCjng=36G.(5+along 
O'’  IF  (r.,f,P  . ) B}  GO  rc  I'-' 
f f’ITE(“O.270}  ZFTa 
TF  (0L'TuFT.Gr:.2}  wPlTE  fiC,2('5) 

G"  TC  5 

li'fc'l  TFiuOTOwT  .r.N.  3 .Ai.t),  PLTFLO  .r-iE.  k;'.}  CALL  PLOTNC 
'■TOP 

110  foa»«-a-^CI;,2Fa4} 

T20  Fl  r.  - A T ( ti  1 p,  4K;  . 2,  F 5.G,  ;F3  . i , 2F  A . 3 , 1 1 , H A4 , A 1) 

2;s?  F r.Pr  A I ( 1 r 1 , iiSA  , 20«u} 

F''P'''AT  <■  3 H*  , » isg-ELE"' ATjf'f,  EG'lisTS') 

2//  FORhat  (1'  ) 

2 3 ■’  F OF  --A  T ( ] .-  , » 


Ti-L 


AIRCRAFT 


SATELLITE 


PROGRAM  SATSPT  (CONTD) 


2<?'- 


22. s 
22-; 


2?o 

23.1 


24  3 
2 -i 
2 iS 
2 S') 

2»  ' 

2t)  ) 


--LLfe.  VATIO^~».  •i»»4  2iM|jTH»-»« 

PA  3 uiST.TC') 

fuPrAlUr^  »'  fZUL'O  LAT/LD,'^G  T.H,  HITCH  LAT/LCNG  HfcIGHT 
U.  A'  T n(.  jt.rOPH  CCRk  THUt  RfeLATiVt.  LAT/LONG  HADIAL  DIST 
2vif<  ;PAFB') 

rPH-iarni-.i',  ' FMAL  FCHOH---  VORTAC  FIXES  ARE  INCOMPATIBLE  wIT 

t CUT^-LT  CPTIf.'r  TWO  Dh  THREE.') 

F QPHAT C 1H0, ' KATaL  EPRCR OUTOPT  GREATER  THAN  THREE') 

roRj'Al  ( ii-,),  ' FATaL  ERROR---  NHDR  GREATER  THAN  THO') 

FuP!;a)  f l-ti', '-fatal  E^^RfR---  INPUT  LATITUDE  GREATER  THAN  93  DEGR 
lES'} 

FOR  IaT  f 1-/. '-F>  T AL  ERR)'R---ELEvaTIOn  ANGLE  GREATER  THAN  93  DEGREE. 

1 ') 

F OR  1AT  r inr-, '..FATAL  ERROR NEGATIVE  SATELLITE  ALTITUDE') 

FCV-!4Tf  )H3,  2(I2,':').12,n,'U',I2,'M',A2,F7,l,Fb.l  ,I3,'D',I2,'M', 
1A2,Fh..  ,F9.i5,?t  A.  l,F7.  1,F8,  1,  13,  'O',  12^'H'»A2,2F7.3,F6,1.A2,F8.0) 
FOP'^Ai  (Ih  , 8X,I3,"J',I2,'M',A2,13X,J3.'D',I2,'M',A2,R8X,I3,'0', 

J "2, A,.%  ' GCD:',R?.U) 

F'jrta;  (iH+.iax,'  1ST  solution  ') 

PuR.iat  (1h+,1oa,'  201  SOLUTION  ') 

roF-'A  r n , 5ux,  'Reharas:  SAa,  a 1 ) 

FUR  )AT  ( t Mi),  2(12,  '5'),I2,F9.?,Fd,i,Fb.l,2X,F8.2,2FR.a,2Fe,l,F7.l, 

IFS,  1, 2a,  f 8.2,  FFi.  3,  F7. 

FUR-AT  ClH  , 10T,F7.2, '7X,F7,2,S2X,F7.2, ' GCD:',F7.0) 

F OR:‘A  r C (m2, 2‘3<,  2NAa) 

POR'-'A’C  'k; NO  P,"!lNiT  EXISTS  ALONG  THE  ',!«,'  DEGREE', 13,'  MIN 

1 ' , A , ' 

2 ■r-RTUlif.  al  ..rtirn  th^  ELEVaTIun  ANGLE  TO  THE  SATELLITE  IS',FS.l, 
3'  OEGRAES'./') 

E'iO 


c 


Cl  r)  o o o o f>  o or-,  r>  o o o o o n o o r» 


FILE  PLMODS 


C4L:.S  3lT  r-IITULlZEK 
}-?Avv',  AM)  LAi^ELS  EJJAT03 

)PAw5  I.ATTTUOt  OF  SATtL'.ITE  i SAT  SYMaOL 

C4lC:)LAT  CONS  ‘JASEO  Qm  x-AXlo  OF  8,8U375  l:'lCHES  = 3b0  DtbREES  LONG 
a.nIO  v-AXIo  of  b,bbh?.S  - ISJ  OEGWEES  LATITUDE 


S''SK0JTIN£  PLTSETCXi^r,  Y=>T) 

COM  ^UN/^L/VinuO,  YODE'j,  v AX  IS,  X 1 OE  G , X 1 80OG,  X0DEG,  X AX  IS 
}T'tEMS  CON  rlOATPX  (4) , F.  )ATW  7 (y)  fSATX  C->)  /SATY  (U) 

')aTA  EOATWX/J.'i.a.  84  375,  0.  , 1 ,/ 

DATA  i;OA^4y/3.3-e8,3,3?a,0.,  1,/ 

DATA  S«TV{31 ,SATXC4)/O,0, 1.0/ 

DATA  3ATY/f!,w,o,65b23»0.'2»  1.0/ 


< AXIS  PANGEo  F4u'^  C-ImDF.  TO  C-)o0E  DEGREES  LONGITUDE 
XAX 1358.64375 
<li)FG  = XAX  13/360. 

XlSO)',sXlDEG*l2-'.iT 

X-^OEGsxnEG*30O.O 

y-4XlS  RANGES  FROP  (-1905  TO  90N  DEGREES  LATITUDE 
YAXl3i6«65b25 
yioeg=ya:<I3/i«?i. 

Y TPEGs'^  IDEGa9M,01 

CONVERT  arguments  TO  INCHES  FOR  PLOTTING 

<^'X  = xI  .CHSCXF't.  YPT,  YINChS) 

3 r = Y I '-"CiiS 


CALL  RF.oIREI)  T-xIT  ROUTINE 
CALL  ‘^lOTST 
ORA'N  E0!,'AT0R 

Call  LrNFCEG4TRX,EJATRY,2,l,0,«) 

LAHEL  EjJATOR 

CALL  SYMaOLC  ;.5,  YiJOEGf  ."'15,  , 12,  7HE')UATQR,  0.0,  7) 

OP  An  34 f LATITHOE 

SATx  r n = sx 

SATXCC)  = SX 

call  L^'E(SATX,SATY,^,  1,2,4) 

C D»A>'  satellite 

CALL  5 Y M3 OLCvSY  .SY,  .2,  10,90.0,-1  ) 

C uASF.L  GPA=>t< 

CAL’.  SYn.BOLC  .5,  .2,  . 12, 7mLES  8/9, 2.0, 7) 

CALu  N jM8F.P(1 .5,  .2,  . 12,  VRT,'«.0,2) 

CALL  SY  '■aC'LCa.R,  . 12.  bHN  OR  S,  0.0,6) 

c * * * 

j=?\ 

END 

FijNCTiU''.  XlNCn3(X,Y,Y]‘.tr’5) 

C'  '•  'O'  /P,./  Y ) DEG,  YOEG,  Y AX  IS,  > lOEG,  X IbOjG,  x3DtG,  XAXlS 


O o O O '“1  o o 


FILE  PLMODS  (CONTD) 


CO^PuTt  FQUIV  OP  X OEGRtth 

LEPT  d/i  OF  X-AXIS 

IFCX  .LT.  .1,'4  ,an;D.  X ,GT,  -6i5.0)  GO  TO  10 
XTP.yP=180,  - ABSCX) 

IFCX  ,!.T,  0,4;)XlNCHS  = xl8eDG  - ( XTEMP*X  I DEG) 
1F(X  .GE.  C'.O)XINC'^SrX180DG  + (XTEMF  * XIDEG) 
GO  TC  100 

rO^PUTt  FAR  RIGHT  side  CjF  X-AXIS 
It’  XINCHS  = x2DEG  + (ABSCX)  * XIDEG) 

c 

C CO'-PI'TE  THE  IMCH  cQUH  OF  Y OEGRLES 
100  YINCHS=(r  + 90.)  * YIDEG 
HP  TUR‘ 
f NO 

SUeoOUTIfNt  “ITIS0(PLTX,PUTY,  ITER) 

OIhEnSI'vN  Pi-TX  C36t’)  »PlTY(36(?) 

PLTX(TTtR+!)=0.3 
PLTXC  ITE9  + i!}s1  .0 
PLTyr  TTEP+l)=v).e' 

PLTYC lTt9+2)=l,0 

CALL  LlNECPLTX,PLTY,ITER,l,-l,a) 

W F T u P f 1 
END 

INTEGER  function  DEC  UN  ( PCSn  . nIOEG,  M I N,  nT  YPE  ) 
IHTEGE.-?  OECON 
IFC'-TYPE.EO,  1)  GO  TO  4 
TF  (P'OS:)  1,?,3 

OPC'JNspH  E 
GO  TO  8 
r E c 0 N = I i 
GO  TO 

0£C  JN'  = 2H  A 
GO  TO  a 

IP(POoN)  '5.8.7 

nEC0N  = 2-.  s 
GO  TO  B 
C E C 0 N = 1 .-H 
GO  TO  d 
)ECuN  = 2-'  N 

8 NOEGs  INTC  AiSCPOSN)) 

HIN=  I.TCC  A5S(POS\)-NDEG)*60,0+,5) 

IF  (t'P  .Nc.60)  GO  TO  9 
•-I 

NDEGs  \DtG+ 1 
tONriNi^E 
PF.TuP\ 

END 

FjNCTlwN  CONOECX) 

CCN0?sl,6S6  66fc7*X-,fcS6()«57*lDlNT(X) 

■JP.T 


FILE  PLMODS  (CONTD) 


EM? 

F|.'^CTI0^  SIND(X) 

SlNOs  5I\(V/57.29577<;5) 

S c T J S >• 
t^-D 

Fll^CTIO^  ccsrcx) 

CCSDs  C0S(X/57.2‘^577'?S} 

RET  UR^ 

ENC 

FjN^CTIO\  l/SvCfX] 

SlN(XVE7,?Ob779b)/  CCS  ( X/57 . 2957795) 

PETL'R.-v 
t ^0 

FUNCTION  ASIM'CX) 

IF(X.Gt.l.f)GC  TC  J 

ifcx.lf.-i.e'igc  to  2 

IFfx.tQ.O.t’IC-O  TO  5 

ASINC  i57.?957  795*ATAN,(X/SQRT  ( 1 .0-X**2)  ) 
RETuRi' 

1 AS  IK  =90.  S' 

KF-Tot" 

c;  ASlt.r  r-cjp.C' 

RETURN 
3 ASiNOsf.  .e 
PETuR”' 
t'-L 

FUKTICN  ACC\SO(X) 

IFCX.fcf  .U.PJC-O  TO  1 
IF(x.Gt,l.,c>)(,C;  TO  2 
IF(>:.lf.-i  .fOOC  TO  3 

ACOSL=5  7.2957795*ATANCS>)WTC1.0-X**2)/X) 
iF(x. LT.fe'.M  /.cosi=Acnso-nfe;’'.o 
H F T U R N 

1 ACfsr=9j.fe? 

RETURN 
t-  Accsr=f  .K 
RETl'R  N 
3 ACCbuslQf 
RETiJP*' 

E^  r 

F^KTIUN  ATA|..D(X) 

ATA‘-0  = s7. 2957795*  4TA0(X) 

RETwRN 

f m: 
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R»57, 295/795 

C CHECK  DELTA  TO  PREVENT  DIVISION  BY  ZERO 

IF(DELTA,EO,-360,0)DELTA«-359,9999 
IF(DELTA,EO,-180,0)OELTA»«179,9999 
IF{DELTA,EQ,180,0)OELTA»179,9999 
IF ( DELTA, EQ, 360, 0)DELTA«359, 9999 
C CALCULATE  TANGENT  OF  DELTA 

O»SIN(DELTA/(2,0*R))/COS(DELTA/(2,0*R)) 

C COMPUTE  SLAT  & DELTA  IN  RADIANS 

RSLAT»SLAT/R 
RDELTA*DELTA/R 

C COMPUTE  half  ANGLES  OF  SUM  & DIFFERENCE 

DIFo(A-B)/'{2,0*R) 

SUM*(A+B)/(2,0*RJ 
C COMPUTE  SUM  IN  DEGREES 

DSUM«SUM*R 

C CHECK  half  SUM  TO  PREVENT  DIVISION  BY  ZERO 

IF(OSUM,EQ,180,0)SUM«179,9999/R 
IF(DSUM.EQ,0,0)SUM>,0001/R 
IF (DSUM,EO,90,0)SUM»SICN( 89,9999, DELTA) /R 
C FIND  LATITUDE  WHICH  CORRESPONDS  TO  AZIMUTH  OF  90  DEGREES 

S«SIN(RDELTA)*COS(RSLAT) 

SaASINO(S) 

IF(S,EO,-90,0)Sa-89,9999 

IF(S,EQ,90,0)S«89,9999 

8«S/R 

ANGLE*SIN(RSLAT)/C0S(S) 

ANGLEbABSCASINDCANGLE)) 

C CHECK  THAT  THE  90  DEGREE  LATITUDE  IS  CORRECT 

DI>(ANGLE«SLAT)/(2,0*R) 

SUaC 1 80,0- ANGLE-SLAT)/ (2, 0*R) 

HSaRaATAN(SIN(DI)/SIN(SU)/D) 

HDaR*ATAN(COS(DI)/COS(SU)/D) 

AAaHSfHD 

COSINEaCOSDIAA) 

ANGLENa-ANGLE 

Dla(ANGLEN-SLAT)/(2,0*R) 

8Ua(180,0-AN6LEN-SLAT)/(2,0*R) 

H8aR*ATAN(SIN<0I)/3IN(SU)/D) 

H0aR*ATAN(C08(0I)/C0S(SU)/D) 

AAaHStHD 

CaCOSCAA) 

IF (ABS (COSINE) ,GT,ABS(COSD(AA) ) )ANGLEa-ANGLE 
C CHECK  tangent  OF  DELTA  TO  PREVENT  DIVISION  BY  ZERO 

IF(D,EQ,0,0)GO  TO  1 
GO  TO  2 

1 ALPHAald0,0 

IF (ALAT,LE, ANGLE) ALPHAa0,0 
CO  TO  5 

2 HSUMaR*ATAN(SIN(DIF)/8IN(SUM)/D) 
H0IFaHaATAN(C08CDIF)/C08(SUM)/D) 

ALPHAaAB8(H8UM^HDIF} 

IF(ALPHA,GT,90,0) ALPHAal80,0-ALPHA 
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SUBROUTINE  AZl  (CONTD) 


IF((ANGLE,GT.0.0),AND,(ALAT.LT.ANSL£))6O  TO  a 
xf((angle.lt.0.0);and.(alat,gt.angle)}go  to  4 

IFC(DEUTA,GT, 0,0), OR, (DELTA, LT, -180, 0))6O  TO  3 

ALPHA*180,04ALPHA 

GO  TO  S 

3 ALPHA«180, 0-ALPHA 
GO  TO  5 

4 IF{(0ELTA,GT. 0,0), OR, (DELTA, LT, -180, 0))6O  TO  5 
ALPHAB360, 0-ALPHA 

5  RETURN 
END 


SECTION  IV 


4.1  Introduction.  This  section  consists  of  the  user  Instructions 
on  operating  RAPP  and  the  associated  support  programs.  A brief  description 
follows  of  the  tasks  and  programs  that  can  be  run  by  the  operator.  Those 
tasks  which  are  run  by  other  tasks  (and  are  therefore  transparent  to  the 
user)  are  not  Included. 

RAPP  - RSX  task  which  reads  the  data  cards,  looks  up  the  ephemerls, 
and  points  the  antenna  at  the  satellite. 

SCAN  - RSX  task  which  performs  a raster  scan  of  the  sky  about  the 
nominal  pointing. 

HAWAII  - RSX  task  which  predicts  hourly  look  angles  for  flight 
planning  purposes. 

ALASKA  - RSX  task  which  predicts  periodic  look  angles  for  flight 
planning  purposes. 

WRITER  - RSX  task  which  prints  out  the  actual  antenna  look  angle 
Information  on  the  line  printer. 

DATA  - RSX  task  which  prints  all  the  ephemerls  data  currently  stored 
on  the  disk. 

XLINK  - RSX  task  which  records  satellite  ranging  and  look  angle 
Information  to  assist  Lincoln  Laboratory  In  orbit  fitting. 

SATSPT  - DOS  program  which  computes  the  look  angle  to  any  satellite 
from  any  point  on  the  earth's  surface.  This  program  is  especially  useful 
for  satellites  for  which  ephemerls  data  Is  not  available.  The  satellite 
latitude,  longitude,  and  altitude  must  be  known. 

RCA  - DOS  program  which  formats  the  ephemerls  data  Into  Baudot  and 
punches  It  onto  paper  tape.  The  reformatted  ephemerls  Is  then  used  on  the 
IBM  4 PI  computer,  located  on  the  C135  aircraft  used  In  flight  testing. 

J 


U 


107 


r 


TRW  - DOS  program  which  punches  the  ephemerls  data  directly  onto  paper 
tape  for  use  by  the  TRW  Spread  Spectrum  Modem  Processor,  located  in  the 
Rooftop. 

4.2  Running  RSX  Tasks.  In  the  discussion  which  follows,  it  is  assumed 
that:  RSX  has  been  booted,  the  operator  has  entered  a User  Identification 
Code  (UIC)  of  142,  4,  and  all  tasks  have  been  Installed  either  manually  or 
via  the  indirect  Install  conmand  "INS  (?  INSTL".  It  is  further  assumed  that 
the  system  disk  (DK®)  contains  RAPP  and  all  associated  support  programs,  in 

1 

I addition  to  the  ephemerls  data. 

I 

4.2.1  Running  RAPP.  To  run  RAPP,  the  operator  must  prepare  the 
data  cards  which  contain  the  satellite  and  weather  data.  Figure  12  illustrates 
the  data  cards.  When  entering  the  Wright-Patterson  location,  note  that 

northern  latitudes  and  eastern  longitudes  are  positive.  In  each  case  on  j 

data  card  2,  the  numbers  can  contain  up  to  four  digits  to  the  right  of  the  | 

1 

decimal  place. 

Once  the  data  cards  have  been  prepared,  the  operator  must  enter  the 
time-of-day  into  the  computer,  as  it  appears  on  the  rubidium  standard. 

It  is  Important  to  enter  the  correct  time  of  day,  as  RAPP  uses  computer  time 
as  a back-up  whenever  the  WWVB  receiver  goes  out  of  synch.  After  the  card 
reader  and  line  printer  are  brought  on  line,  the  operator  may  RUN  RAPP. 

Once  RAPP  has  been  run,  and  the  ephemerls  data  printed  on  the  line 
printer,  the  antenna  is  pointed  at  the  desired  satellite.  Due  to  slight 
misalignments  on  the  10-foot  dish,  small  biases  must  be  added  to  (or 
subtracted  from)  the  look  angle.  This  is  done  from  the  VT05  terminal 
located  in  the  Rooftop.  The  operator  punches  A+<  bias  term  > or  E+<  bias 
term  >,  depending  on  whether  azimuth  or  elevation  biases  are  desired.  A 
carriage  return  then  enters  the  bias  term  into  the  computer.  By  observing 
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COLUMN  NO. 

CARD  # 

DATA 

1-3 

1 

3-dlglt  day  of  year 

45 

1 

Satellite  number 

1-10 

2 

Barometric  pressure  in  inches  of  mercury 

11-20 

2 

Temperature  in  Fahrenheit 

21-30 

2 

Relative  humidity  in  percent 

51-60 

2 

Wrlght-Patterson  latitude 

61-70 

2 

Wrlght-Patterson  longitude 

ECC/HP- 


the  spectrum  analyzer  located  nearby,  the  operator  can  quickly  peak  up  the 
K-band  signal  from  the  satellite. 

4.2.2  Running  SCAN.  To  run  SCAN,  the  operator  need  only  enter 
RUN  SCAN.  Task  SCAN  automatically  suspends  antenna  pointing  and  scans  the 
sky  for  the  satellite.  Upon  completion,  two  minutes  later,  task  SCAN 
resumes  all  antenna  pointing  tasks. 

4.2.3  Running  HAWAII.  To  run  HAWAII,  the  operator  simply  prepares 
the  data  cards  and  types  RUN  HAWAII  on  the  UECWRITER.  Data  card  preparation 
consists  of  punching  the  day-of-year  in  columns  1-3,  the  satellite  number 

(8  or  9)  in  column  6,  and  the  desired  longitude  and  latitude  in  columns  7-16 
and  17-26  respectively.  Note  that  northern  latitude  and  eastern  longitude  are 
positive.  When  entering  longitude,  insure  that  the  magnitude  of  the  longitude 
is  less  than  or  equal  to  180  degrees.  Once  a data  card  has  been  punched  for 
each  way-point  on  the  proposed  flight  path,  HAWAII  can  be  run.  A prediction 
of  hourly  look  angles  to  the  appropriate  satellite,  from  00:00  to  24;00Z, 
will  be  printed  for  each  way-point.  If  a plot  is  desired,  the  output  data 
should  be  spooled  onto  the  disk,  then  transferred  onto  a DOS  disk  via  FLX. 
Using  the  CALCOMP  plotter  on  the  11/20,  look  angles  can  be  plotted  either 
as  a function  of  time  or  as  a function  of  position. 

4.2.4  Running  ALASKA.  Data  card  preparation  for  task  ALASKA  is 
identical  to  that  of  task  HAWAII.  When  ALASKA  is  run,  the  DECWRITER  will 
query  the  operator  for  the  specific  time  it  is  anticipated  that  the  aircraft 
will  arrive  at  a specific  way-point.  ALASKA  will  then  print  out  the  look- 
angle  at  that  time,  plus  one,  two,  and  three  hours  later.  Like  HAWAII,  the 
output  data  can  be  spooled  onto  the  disk,  for  future  use. 
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4.2.5  Running  WRITER.  Like  task  SCAN,  task  WRITER  can  be  run 


i 


simply  by  typing  RUN  WRITER  on  the  DECWKITER.  Only  run  while  the  terminal 
is  in  active  track  and  azimuth  and  elevation  biases  are  zero,  WRITER  can  be 
used  to  ascertain  misalignments  in  the  ten-foot  dish.  The  pointing  errors 
vary  according  to  both  the  time  of  day  and  the  accuracy  of  the  ephemeris 
data.  Therefore,  WRITER  needs  to  be  run  over  a continuous  24-hour  period, 
using  several  different  orbit  fits  before  permanent  azimuth  and  elevation 
bias  could  be  Incorporated  into  RAPP. 


i 


f 

* 

{ 
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4.2.6  Running  DATA.  Task  DATA  Is  run  after  the  line  printer  has 
been  placed  on-line.  DATA  then  prints  all  the  ephemerls  data  presently 
stored  on  the  disk. 

4.2.7  Running  XL INK.  Task  XLINK  is  run  whenever  ranging  to  the 
satellite  is  to  be  accomplished,  in  order  to  assist  Lincoln  Laboratory  in 
orbit-fitting.  Before  running  XLINK,  a reel  of  magnetic  tape  must  be 
mounted,  placed  on  line,  and  initialized.  The  satellite  must  be  placed 

in  the  correct  mode,  the  Crosslink  Ranging  Receiver  must  be  locked  to  the 
satellite,  and  the  Rooftop  terminal  must  be  actively  tracking  the  satellite. 

Task  XLINK  is  run  by  typing  "RUN  XLINK  IS/RSI=4S"  on  the  DECWRITER. 

This  action  runs  XLINK,  in  one  second,  and  reschedules  it  to  run  every  four 
seconds.  Upon  running  XLINK,  the  operator  is  queried  as  to  which  satellite 
is  being  used,  current  weather  information  (to  allow  for  refraction  cor- 
rection), and  other  data  required  for  orbit  fitting.  The  required  ranging 
data  and  pointing  Information  will  then  be  automatically  sampled  and 
recorded  on  mag  tape  every  four  seconds,  during  the  first  ten  minutes  of 
every  hour.  The  mag  tape  file  can  be  closed  out  when  it  is  desired  to 
complete  data  recording  by  setting  Bit  Zero  of  the  11/45  switch  register 
to  a "ONE".  Task  XLINK  should  then  be  CANcelled  and  ABOrted  via  the 
DECWRITER,  and  the  mag  tape  removed  for  rafekeeplng. 

4.3  Running  DOS  Programs.  In  the  following  discussion,  it  is 
assumed  that  DOS  has  been  booted,  and  the  operator  has  logged  in  under 
user  number  142,4.  DOS  Version  9 is  used  for  all  DOS  programs  except 
SATSPT,  which  requires  Version  8.  Until  a plotter  driver  is  available 
under  Version  9,  Version  8 will  have  to  be  used  if  a plot  is  desired. 
Regardless  of  the  version  used,  the  system  disk  (DK0)  should  contain  all 
the  RAPP  support  programs  in  addition  to  the  ephemerls  data. 
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4.3.1  Running  PAUL.  Program  PAUL  runs  under  DOS  on  the  11/45. 
First,  the  operator  mounts  the  mag  tape  containing  the  ephemeris  data  on 
the  mag  tape  unit.  The  mag  tape  unit  is  then  brought  on-line.  The  previous 
ephemeris  data  file  on  the  disk.,  DAVEM.DAT,  must  be  deleted  prior  to  running 
PAUL.  When  PAUL  is  run,  the  ephemeris  data  is  transferred  from  the  mag  tape 
onto  the  disk.  When  the  mag  tape  stops  moving,  the  transfer  is  complete. 

The  operator  types  "control  C"  and  "KILL"  on  the  DECWRITER,  and  unloads  the 
DOS  disk. 

The  first  step  in  getting  the  ephemeris  data  onto  the  RSX  disk  is  to 
boot  RSX  on  the  11/45  and  mount  the  DOS  disk  which  contains  the  ephemeris 
data  as  a foreign  disk.  The  DOS  disk  is  mounted  using  the  following  command 
string:  "MOU  DKl :/CHA=[F0R,DFA,ATCH,DCF]"  followed  by  a carriage  return. 

The  old  ephemeris  data  file  DAVEM.DAT;!  on  the  RSX  disk  is  deleted,  and 
FLX  invoked  by  the  operator.  The  new  RSX  ephemeris  file  is  copied  onto  the 
RSX  disk  via  FLX  by  typing  "DK0: /IM=DK1 : DAVEM.DAT"  followed  by  a carriage 
return.  The  new  ephemeris  data  may  now  be  PIPed  onto  the  other  two  RSX  RAPP 


disks,  following  deletion  of  the  respective  old  data  files.  Failure  to 
delete  the  old  fi’e  first  could  cause  a new  file  to  be  formed  (depending  on 
the  particular  command  string  used)  under  DAVEM.DAT;2.  Since  RAPP  uses 
the  ephemeris  located  under  DAVEM.DAT;!  it  would  use  the  old  ephemeris. 

4.3.2  Running  SATSPT.  SATSPT  runs  on  the  11/20  under  DOS  Version  8, 
because  the  plotter  is  a peripheral  on  the  11/20  and  requires  a driver  found 
only  under  Version  8.  Data  card  preparation  is  more  Involved  than  with 
any  other  program  or  task,  due  to  the  many  options  available.  In  preparing 
data  cards,  the  following  conventions  and  limitations  must  be  adhered  to: 


(a)  All  decimal  places  are  implied.  Do  not  punch  decimal  places  on 
the  data  cards. 
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(b)  All  numerical  data  must  be  right-justified  (must  end  in  the  right- 
most column  of  its  field).  The  use  of  leading  zeros  is  recommended.  j 

(c)  Default  option  (values  assigned  when  the  field  is  empty)  is  zero 
for  numerics  and  blank  for  alpha-numerics. 

(d)  North  latitude,  west  longitude,  and  west  magnetic  variation  are 
positive  by  convention. 

(e)  Each  data  set  must  contain  at  least  three  cards: 

(1)  Output  Option  and  Title  Card 

(2)  Aircraft/Satellite  Data  Card(s) 

(3)  Sentinel  Card  | 

: I 

(f)  Nose-up  aircraft  pitch  is  positive.  i 

To  prepare  the  data  cards,  use  Figures  13-16  as  a guide.  Note  that  ^ 

Figure  14  is  used  for  preparing  the  Aircraft/Satellite  data  card  for 

j 

Output  Options  0 or  1,  while  Figure  15  is  used  for  Options  2 or  3.  ' 

i 

i 

To  run  SATSPT,  insure  that  the  card  reader  and  line  printer  are 

i 

on-line.  In  addition,  as  Output  Option  3 is  being  used  and  a plot  is  : 

being  made,  insure  that  the  CALCOMP  plotter  is  ready.  Assign  the  card  j 

reader  to  device  number  1,  and  type  "RUN  SATSPT"  on  the  terminal. 

4.3.3  Running  RCA.  RCA  is  run  only  on  the  11/20,  due  to  the 
availability  of  a high  speed  paper  tape  punch.  Prior  to  running  RCA,  it 
must  be  verified  that  current  ephemeris  data  is  on  the  disk.  If  not, 
the  data  must  be  PIPed  onto  the  disk  from  the  11/45  DOS  disk  which  contains 
the  latest  ephemeris.  To  PIP  the  ephemeris  from  the  11/45  disk,  type 
DA VEM. DAT/ C0<DK1: DAVEM.DAT  on  the  11/20  terminal.  It  is  imperative  that 
the  contiguous  switch  be  used.  Otherwise,  errors  will  result  when  running 
RCA.  Once  this  has  been  done.  Insure  that  RCA.LST  (which  may  be  left  from 
the  last  time  RCA  was  run)  is  deleted  from  the  disk.  To  run  RCA,  simply 


VARIABLE  INPUT 
COL.  NOS.  NAME  FORMAT 


DESCRIPTION/REMARKS 


1 


OUTOPT  X 


OUTOPT 

OUTOPT 

OUTOPT 


OUTOPT 


0:  Non-iterative  elevation  and 

azimuth  calculations  with  output 
in  decimal  format. 

1:  Non-iterative  elevation  and 

azimuth  calculations  with  output 
in  degrees  and  minutes  format. 

2:  Program  calculates  aircraft 

latitudes  which  yield  a specified 
elevation  angle  (iso-elevation 
line-of-position)  over  a longitude 
range  specified  by  input  data. 
Output  format  is  degrees  and 
minutes . 

3:  Performs  function  described  under 
OUTOPT  = 2 for  a range  of  elevation 
angles  specified  by  the  input  data. 
An  iso-elevation  angle  map  may  be 
drawn  from  the  computed  positions. 


2-79  ZETA  Alpha-  78  alpha-numeric  characters  printed  as  a 

numeric  header  and  trailer  on  each  page.  Whenever 
OUTOPT  = 2 or  3,  the  word  "ISO-ELEVATION" 
Immediately  precedes  the  contents  of  ZETA 
on  the  header  and  trailer  lines. 


Figure  13 


INPUT  DATA  CARD  NO.  1 


COL.  NOS. 

VARIABLE 

NAME 

INPUT 

FORMAT 

DESCRIPTION/REMARKS 

1-2 

NHOUR 

XX 

Observation  Hour. 

3-4 

NMIN 

XX 

Observation  minute. 

5-6 

NSEC 

XX 

Observation  second. 

8 

NPDF 

X 

NPDF  = 0:  All  latitudes  and  longitudes  in 
decimal  format. 

NPDF  = 1:  All  latitudes  and  longitudes  in 
degrees  and  minutes  format. 

NPDF  = 2:  Aircraft  position  to  be  determined 
by  a VORTAC  fix.  VORTAC  location 
and  satellite  subpoint  in  degrees 
and  minutes  format. 

10-14 

ALAT 

+XX.XX 

If  NPDF  = 

-or- 

-or- 

+DDMM 

If  NPDF  = 

If  NPDF  = 

15-20 

ALONG 

+XXX.XX 

If  NPDF  = 

-or- 

-or- 

+DDDMM 

If  NPDF  = 

If  NPDF  = 

22-26 

SLAT 

+XX.XX 

If  NPDF  = 

-or- 

+DDMM 

-or- 

If  NPDF  = 

27-32 

SLONG 

+XXX.XX 

If  NPDF  = 

-or- 

+DDDMM 

-or- 

If  NPDF  = 

33-37 

H 

XXXXX. 

Satellite 

0:  Aircraft  latitude  in  decimal 
format • 

1:  Aircraft  latitude  in  degrees 
and  minutes. 

2:  VORTAC  station  latitude  in 

degrees  and  minutes.  Converted 
to  VLAT  in  program. 

0:  Aircraft  longitude  in  decimal 
format . 

1:  Aircraft  longitude  in  degrees 
and  minutes. 

2:  VORTAC  station  longitude  in 

degrees  and  minutes.  Converted 
to  VLONG  in  program. 

0;  Satellite  subpoint  latitude  in 
decimal  format. 

1 or  2 : Satellite  subpoint  latitude 
in  degrees  and  minutes. 

0:  Satellite  subpoint  longitude  in 
decimal  format. 

1 or  2 : Satellite  subpoint  longitude 
in  degrees  and  minutes. 

height  above  subpoint  (nautical  miles) 
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Figure  14a 

Input  Data  Cards  2 through  K+1  (for  K observations) 
Output  Option  0 or  1 Only 


VARIABLE 

INPUT 

COL.  NOS. 

NAME 

FORMAT 

DESCRIPTION/REMARKS 

38-40 

HEAD 

XXX. 

Aircraft  magnetic  heading. 

41-43 

RAD 

Blank 

-or- 

XXX. 

If  NPDC  * 0 or  1. 

-or- 

If  NPDF  - 2:  Magnetic  bearing  from  VORTAC 
station  to  aircraft  (radial). 

44-46 

DME 

Blank 

-or- 

XXX. 

If  NPDF  = 0 or  1. 

-or- 

If  NPDF  = 2:  Distance  from  VORTAC  station 
to  aircraft  (nautical  miles) 

47-50 

VARMAG 

+XX.X 

If  NPDF  = 0 or  1:  Magnetic  variation  at  the 
aircraft  location. 

If  NPDF  = 2:  Magnetic  variation  at  the  VORTAC 
station.  The  mag.  var.  at  the 
aircraft  is  assumed  to  be  equal 
to  the  station's  value. 

51-54 

PITCH 

+XX.X 

Aircraft  pitch  angle,  usually  displayed  on 
a clinometer. 

56-80 

REMARK 

Alpha- 

numeric 

25  Alpha-numeric  characters  printed  with 
each  output  record  following  the  "REMARKS:" 
label . 

Figure  14b 

Input  Data  Cards  2 through  K+1  (for  K observations) 
Output  Option  0 or  1 Only 
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COL.  NOS. 

VARIABLE 

NAME 

INPUT 

FORMAT 

DESCRIPTION/REMARKS 

1-6 

NHOUR, 

NMIN, 

NSEC 

XXXXXX 

Any  6-digit  identification  number  not 
beginning  with  99. 

8 

NPDF 

X 

If  NPDF  = 0 

If  NPDF  = 1 

: Latitude,  longitudes,  and 
longitude  increment  are  in 
decimal  format. 

: Latitude,  longitudes  and 
longitude  increment  are  in 
degrees  and  minutes. 

9-14 

ALAT 

+XX.XX 

-or- 

+DDMM 

If  NPDF  = 0:  Aircraft  longitude  increment 
in  decimal  format. 

-or- 

If  NPDF  = 1:  Aircraft  longitude  Increment 
in  degrees  and  minutes. 

Note:  ALAT  is  converted  to  STEP  within  the 
program. 

15-20 

ALONG 

+^XXX.XX 

-or- 

+DDDMM 

If  NPDF  = 0 

-or- 

If  NPDF  = 1 

: Initial  aircraft  longitude  in 
decimal  format. 

: Initial  aircraft  longitude  in 
degrees  and  minutes. 

22-26 

SLAT 

+XX.XX 

-or- 

+DDMM 

If  NPDF  = 0 

-or- 

If  NPDF  = 1 

: Satellite  latitude  in  decimal 
format. 

: Satellite  latitude  in  degrees 
and  minutes. 

27-32 

SLONG 

+XXX.XX 

-or- 

+DDDMM 

If  NPDF  = 0 

-or- 

If  NPDF  = 1 

: Satellite  longitude  in  decimal 
format. 

: Satellite  longitude  in  degrees 
and  minutes. 

33-37 

H 

XXXXX. 

Satellite  height  above  subpoint  (nautical 
miles) . 

38-40 

HEAD 

XXX. 

Number  of  aircraft  longitude  Iterations  for 
a given  elevation  angle.  Converted  to  ITER 
in  program. 

44-46 

DME 

Blank 

If  OUTOPT  - 

2. 

Input  Data  Card 


-or- 

If  OUTOPT  = 3:  Number  of  elevation  angle 
Iterations.  Converted  to 
NELEV  in  program. 

Figure  15a 

No.  2,  Output  Option  2 or  3 Only 
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VARIABLE 

INPUT 

COL.  NOS. 

NAME 

FORMAT 

DESCRIPTION/REMARKS 

A7-50 

VARMAG 

Blank 

If 

OUTOPT 

s 

2 

-or- 

-or- 

+XX.X 

If 

OUTOPT 

ss 

3:  Elevation  angle  increment. 

Converted  to  ELSTEP  in  program. 

51-54 

PITCH 

+XX.X 

If 

OUTOPT 

s 

2:  Elevation  angle. 

If 

OUTOPT 

St 

3:  Initial  elevation  angle.  Con- 

verted to  THETAT  in  program. 

Negative  elevation  angles  are 
acceptable.  Must  always  be  <90°. 

55 

PLTFLG 

X 

If 

PLTFLG 

= 

0:  No  plot. 

If 

PLTFLG 

=: 

1:  Plot  only. 

If 

PLTFLG 

2:  Plot  plus  listing  of  values. 

56-80 

REMARK 

Alpha- 

25 

Alpha-numeric  characters  printed  with  each 

numeric 

output  record  following  the  "REMARKS:"  label. 

Figure  15b 

Input  Data  Card  No.  2 
Output  Option  2 or  3 Only 


f. 

I ' 

i' 


5 type  RUN  RCA,  and  respond  with  the  desired  day-of-year  when  queried  by  the 

I terminal.  RCA  will  spool  the  desired  ephemeris  onto  the  disk  as  RCA. LSI, 

reformat  the  data  in  the  BAUDOT  format,  and  punch  the  reformatted  data  on 
the  high-speed  paper  tape  punch.  RCA.LST  can  then  be  PIPed  onto  the  line 
printer  prior  to  deletion. 

4.3.4  Running  TRW.  Program  TRW  is  run  much  the  same  as  program 


RCA;  after  insuring  that  current  ephemeris  data  is  on  the  disk,  simply  type  i 

RUN  TRW  on  the  terminal.  Respond  with  the  proper  day-of-year,  and  TRW  will 
punch  a paper  tape  directly  from  the  disk.  Since  no  re-formatting  is 

I 

Involved,  no  files  are  spooled  onto  the  disk.  The  paper  tape  may  be  ; 

I 

verified  simply  by  PlPlng  it  from  the  paper  tape  reader  onto  the  line  printer.  n 

4.4  Fault-Finding  Chart.  A brief  discussion  follows  of  the  various  faults 

which  could  prevent  a task  or  program  from  executing  correctly.  ! 


Program/Task 

Problem 

Solution 

ALASKA 

DAVEM.DAT  file  locked. 

Run  PIP  and  unlock  file. 

Error  in  entering  time. 

Re-enter  correct  time. 

ASMINT 

Error  in  sampling  WWVB  tlme- 
of-day. 

Turn  on  WWVB  receiver. 

DATA 

DAVEM.DAT  file  locked. 

Run  PIP  and  unlock  file. 

No  output  on  line  printer. 

Reset  line  printer  and  place 
on-line. 

DOIT 

Antenna  does  not  point. 

Turn  on  Antenna  Control 
Interface  Unit.  Enable 
antenna  pedestal  in  Rooftop. 

FLX 

Insufficient  contiguous 
space  on  disk  for  DAVEM.DAT. 

Run  Disk  Compression  Utility 
(DCU) . 

HAWAII 

DAVEM.DAT  file  locked. 

Run  PIP  and  unlock  file. 

PAUL 

File  transfer  error. 

Delete  old  DAVEM.DAT  prior 
to  running  PAUL. 

RAPP 


DAVEM.DAT  file  locked 


Run  PIP  and  unlock  file 


RTLOOP 


RCA 

SCAN 

WRITER 


XLINK 


Incorrect  pointing  of  antenna.  Enter  correct  time-of-day  as 

it  appears  on  the  rubidium 
standard. 


Incorrect  pointing  of  antenna. 


File  transfer  error. 


Antenna  does  not  point. 

No  output  on  line  printer. 
Incorrect  data  printed. 


No  output  to  mag  tape. 

Incorrect  data  recorded  on 
tape. 


Antenna  bias  term  as  input  from 
VT05  is  out  of  range.  Re-enter 
correct  bias  term. 

Delete  old  RCA.LST  file  prior 
to  running  PAUL. 

Turn  on  Antenna  Control 
Interface  Unit. 

Reset  line  printer  and  place 
on-line. 

Turn  on  Antenna  Control 
Interface  Unit. 

Initialize  mag  tape.  Insert 
write  enable  ring  on  tape  reel. 

Insure  that  Antenna  Control 
Interface  Unit,  WWVB  receiver, 
and  Crosslink  Ranging  Receiver 
and  Crosslink  Ranging  Interface 
are  powered  up. 
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4.5  Dictionary  of  Computer  Symbols 


A Intermediate  term  used  In  several  tasks  and  subroutines.  In 

SCAN,  A Is  used  In  generation  of  the  azimuth  bias  offset.  In 
subroutine  HINIT,  A Is  used  In  a latitude  conversion  from  degrees 
to  radians.  In  subroutines  CONVER  and  AEOUT,  A Is  used  as 
the  antenna  bias  correction  term.  In  task  INPUT,  A Is  used  as 
the  upper  (floating)  word  of  the  Input  from  the  Crosslink  Ranging 
Receiver  Interface. 

ABIAS  Azimuth  bias  term  used  In  task  SCAN.  Its  value  Is  passed  to 

task  SCANR  to  compute  the  new  desired  azimuth  pointing. 

ADD0  Used  In  subroutine  TOD,  as  the  Control  and  Status  Register  address 

of  the  WWVB  receiver  Interface  with  the  11/45  computer. 

ADD4  Used  In  subroutine  TOD,  as  the  Input  buffer  address  of  the  WWVB 

receiver  Interface  with  the  11/45  computer. 

AK1-AK3  Provided  by  subroutines  DATAID  and  HDATA,  used  In  calculating 
the  refractlvlty  constant. 

AL  Intermediate  azimuth  value  used  In  task  SCAN. 

ALAT  Aircraft  or  Avionics  Lab  latitude,  corrected  for  the  earth's 

oblateness.  Calculated  In  subroutines  DATAID  and  HDATA;  also 
used  In  subroutines  INITAL  and  HINIT  as  an  Intermediate  calcula- 
tion In  determining  the  sine  and  cosine  of  the  latitude. 

ALLAT  Aircraft  or  Avionics  Lab  latitude,  as  Input  from  the  Input  data 

cards  In  subroutines  DATAID  and  HDATA. 


ALLNG 


ALRAD 
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Aircraft  or  Avionics  Lab  longitude,  as  Input  from  the  Input  data 
cards  In  subroutines  DATAID  and  HDATA. 

Approximate  radius  (In  meters)  from  the  center  of  the  earth  to 


aircraft  or  Avionics  Lab  position.  Computed  In  subroutines 
DATAID  and  HDATA. 


AMIN 

AN 

ANTFLG 


AXXA 

AXYA 

AYYA 

AZ 

AZBIAS 

AZI 


AZIIN 


AZZA 

B 

CHKT 
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Floating  point  "minutes"  term  of  time-of-day.  Used  in  task 
WRITER. 

Surface  refractivity  of  the  atmosphere.  Computed  in  subroutines 
DATAID  and  HDATA. 

Flag  set  by  task  DOIT  once  every  five  seconds.  When  the  set 
condition  is  sensed  by  task  RTLOOP,  the  VT-05  display  is 
sampled  for  any  input  changes  desired.  ANTFLG  is  then  reset 
by  RTLOOP. 

Absolute  value  of  variable  XXA. 

Projection  of  variable  XXA  and  YYA  onto  the  X-Y  plane.  Used 
in  subroutines  ANTENA,  HANTEN,  and  PANTEN. 

Absolute  value  of  variable  YYA. 

Intermediate  value  of  azimuth  used  in  task  SCAN. 

Antenna  azimuth  bias  term.  Initialized  in  subroutines  DATAID 
and  HDATA.  Computed  in  subroutine  AEOUT,  and  used  in  subroutines 
ANTENA,  HANTEN,  and  PANTEN. 

Computed  antenna  azimuth.  Calculated  in  subroutines  ANTENA, 
HANTEN,  and  PANTEN.  Used  in  computing  the  azimuth  error  in 
subroutine  PNT. 

Actual  antenna  azimuth,  as  input  from  the  antenna  servos  by 
subroutine  STATE.  Used  in  subroutine  PNT  to  calculate  the 
azimuth  command. 

Absolute  value  of  variable  ZZA. 

Used  in  task  INPUT  as  a temporary  calculation  in  computing  the 
path  delay  to  the  satellite. 

Difference  (in  seconds)  between  WWVB  and  11/45  computer  time. 
Computed  in  subroutine  CTIME. 


CLAT 


Cosine  of  aircraft  or  Avionics  Lab  latitude.  Computed  in 


CLLAT 


CLNG 


CONI 


C0N2 


C0N3 


C0N4 


CONS 


subroutines  INITAL  and  HINIT.  Used  in  subroutines  ANTENA, 

HANTEN  and  PANTEN. 

Aircraft  or  Avionics  Lab  latitude  in  radians.  Computed  in 
subroutines  INITAL  and  HINIT. 

Cosine  of  aircraft  or  Avionics  Lab  longitude.  Used  in  sub- 
routines HINIT,  INITAL,  ANTENA,  HANTEN,  and  PANTEN. 

In  task  INPUT,  used  as  a constant  in  scaling  the  range  to  the 
satellite.  In  subroutine  TOD,  used  as  a constant  to  convert 
milliseconds  to  seconds.  In  subroutine  PNT,  used  to  add  64 
to  the  pointing  command.  Paragraph  2. 4. 4. 3. 2 explains  why  this 
is  done. 

In  task  INPUT,  used  as  a constant  in  scaling  the  range  to  the 
satellite.  In  subroutine  TOD,  used  as  a constant  to  convert 
seconds  to  tens  of  seconds.  In  subroutine  PNT,  used  as  a 
constant  to  check  if  the  difference  between  the  measured  and 
calculated  range  is  less  than  -10  degrees.  If  so,  a limit  of 
-10  degrees  is  placed  on  the  pointing  command. 

In  subroutine  PNT,  used  to  subtract  360  degrees  from  the  azimuth 
if  the  azimuth  is  larger  than  360  degrees. 

In  subroutine  PNT,  used  to  add  59  degrees  to  both  input  and 
output  azimuths.  This  rotates  the  azimuth  reference  as 
mentioned  in  paragraph  2. 4. 4. 3. 2. 

In  subroutine  PNT,  used  as  a constant  to  check  if  the  difference 
between  the  measured  and  calculated  azimuth  is  greater  than  ten 
degrees.  If  so,  a limit  of  ten  degrees  is  placed  on  the  pointing 
command. 
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y- Ihtj-. 


COUNT 


DABIT 

DT 

DTC 

EBIAS 

EL 

ELBI\S 


ELEIN 


ELEV 


ERA 


ERE 


F1-F20 


HOLD 


Used  as  a counter  in  task  DOIT  to  allow  updating  of  antenna 
look-angle  every  five  seconds. 

D/A  converter  scale  factor  used  in  subroutine  PNT.  Equal  to 
.03125  degrees  per  bit. 

One-half  satellite  position  update  period  (2.5  seconds)  used 
in  subroutines  CTIME  and  HTIME. 

No  longer  used,  but  still  appears  in  subroutines  DATAID  and 
HDATA. 

Elevation  bias  term  used  in  task  SCAN.  Used  to  effect  the 
elevation  stepping  of  the  raster  scan. 

Intermediate  value  of  elevation  used  in  task  SCAN. 

Antenna  elevation  bias  term.  Initialized  in  subroutines  DATAID 
and  HDATA.  Computed  in  subroutine  ABOUT  and  used  by  subroutines 
ANTENA,  HANTEN,  and  PANTEN. 

Actual  antenna  elevation.  Input  by  subroutine  STATE  and  used 
in  subroutine  PNT  to  generate  elevation  error  command. 

Computed  antenna  elevation.  Calculated  in  subroutines  ANTENA, 
HANTEN,  and  PANTEtC.  Used  in  subroutine  PNT  to  generate  elevation 
error  command. 

Antenna  azimuth  error.  Difference  between  actual  and  computed 
antenna  azimuth.  Calculated  in  subroutine  PNT. 

Antenna  elevation  error.  Difference  between  actual  and  computed 
antenna  elevation.  Calculated  in  subroutine  PNT. 

Dummy  floating  point  variable  common  block.  Used  for  present 
end  future  expansion. 

Intermediate  variable  used  in  subroutine  PNT.  Used  to  hold  the 
antenna  servo  commands  to  the  azimuth  and  elevation,  in  turn. 
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HOUR 

I 


lARAY(N) 

IDAY 

I DOT 

lEOF 


IFLG 

IHOUR 

INTFLG 

lODAY 

lOUNT 
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Hours  term  from  the  tlme-of-day , used  in  task  WRITER. 

Used  in  subroutine  CONVER  as  an  intermediate  input  term  to 
compute  the  azimuth  or  elevation  input  bias.  Also  used  in 
subroutine  AEOUT  as  an  intermediate  calculation  of  the  range 
to  the  satellite. 

Nth  element  of  the  buffer  used  in  reading  the  ephemeris  data 
off  the  disk.  Used  in  subroutines  DATAID  and  HDATA. 

Desired  day-of-the-year.  For  instance,  14  February  = Day  45. 
Input  on  data  cards  by  subroutines  DATAID  and  HDATA,  and  by 
tasks  DATA  and  DATAIL. 

Used  by  subroutine  CONVER  to  flag  a decimal  point  occurring  in 
the  antenna  pointing  bias  term. 

A flag  set  in  subroutines  DATAID  and  HDATA  and  tasks  DATA  and 
DATAIL  if  the  desired  ephemeris  data  cannot  be  located  on  the 
disk.  Passed  to  tasks  RAPP,  ALASKA,  or  HAWAII  to  allow  printing 
of  an  error  message  when  this  occurs. 

Flag  used  in  inputting  correct  ephemeris  data  block.  Set  when 
LES  8 ephemeris  has  been  located.  Used  in  subroutines  DATAID 
and  HDATA,  and  tasks  DATA  and  DATAIL. 

Integer  representation  of  variable  HOUR.  Used  in  task  WRITER. 
Flag  used  to  signal  task  SCAN  that  task  SCANR  has  finished 
running  and  exited. 

Previous  (old)  value  of  day-of-the-year  (IDAY-1) .Used  In  sub- 
routine HDATA,  where  IDAY  is  being  Incremented  automatically. 
FORTRAN  integer  counterpart  of  COUNT.  Initialized  in  tasks  RAPP, 
ALASKA,  and  HAWAII;  variable  COUNT  must  have  an  Integer  name  in 
FORTRAN. 


ISEC 


Integer  representation  of  variable  SEC.  Used  in  task  WRITER. 


ISIGN 

ITIME 

IVAR 

11-120 

J 

JDAY 


JFLG 


Used  in  subroutine  CONVER  to  flag  a negative  antenna  bias  term. 
Hours  term  of  time-of-day , as  entered  from  the  DECWRITER  in 
task  ALASKA. 

Dummy  variable  used  in  the  DEFINE  FILE  statement  of  subroutine 
DATAID  and  tasks  DATA,  DATAIL,  ALASKA,  and  HAWAII. 

Dummy  Integer  variable  common  block.  Used  for  present  and  future 
expansion. 

Intermediate  bias  term  used  in  subroutine  AEOUT  to  calculate  the 
slant  range  to  the  satellite. 

Actual  value  of  the  day-of-the-year  as  contained  in  the  ephemeris 
data  on  the  disk.  Input  in  subroutines  DATAID  and  HDATA  and 
tasks  DATA  and  DATAIL. 

Flag  used  in  Inputting  correct  ephemeris  data  block.  Set  when 
the  A.M.  buffer  of  the  appropriate  satellite  has  been  located. 
Used  in  subroutines  DATAID  and  HDATA,  and  tasks  DATA  and  DATAIL. 
Error  return  flag  used  in  all  CALL  RUN  statements.  Also  used  in 
subroutine  CONVER  to  compute  the  antenna  bias  term. 

Time-of-day  in  hours,  used  in  task  HAWAII. 

Minutes  term  of  time-of-day,  as  entered  from  the  DECWRITER  in 
task  ALASKA. 

Dummy  input  variables  buffer  used  in  subroutine  AEOUT.  Utilizing 
a 6A1  format,  requests  can  be  made  via  this  block  for:  pointing 
information,  adding  or  subtracting  of  antenna  pointing  biases, 
or  requests  can  be  made  for  changing  satellites. 

No  longer  used. 


i 


KK 

KOUNT 

LES 

LLES 

MIN 

N 

NUM 

PP 

PW 

R 

RAD 

RH 

RLAT 
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Counter  used  to  mark  data  location  during  direct  disk  access 
of  the  ephemeris  data.  Used  In  subroutines  DATAID  and  HDATA, 
and  tasks  DATA  and  DATAIL. 

Used  In  subroutine  CONVER  as  a counter  for  the  five-digit 
azimuth  or  elevation  bias  term. 

Desired  satellite  number.  Equals  8 for  LES  8;  9 for  LES  9. 

Input  and  used  in  subroutines  DATAID,  HDATA,  and  AEOUT,  and 
tasks  DATA  and  DATAIL. 

Actual  satellite  number,  as  contained  in  the  ephemeris  data 
on  the  disk.  Used  in  subroutines  DATAID  and  HDATA. 

Integer  representation  of  variable  AMIN.  Used  in  task  WRITER. 

Used  in  inputting  azimuth  or  elevation  biases  in  subroutine 
CONVER.  N=A  implies  an  azimuth  bias  follows.  N=E  implies  an 
elevation  bias  follows. 

Integer  representation  of  the  floating  point  antenna  bias  term 
used  in  subroutine  CONVER. 

Atmospheric  pressure  in  inches  of  mercury.  Input  on  data  card 
in  subroutines  DATAID  and  HDATA. 

Partial  water  vapor  pressure  calculated  from  the  weather  data. 
Computed  in  subroutines  DATAIL  and  HDATA. 

Number  of  degrees  in  a radian  (=57.2457795).  Used  throughout 
the  Rooftop  Antenna  Pointing  Program  for  conversions. 

Same  as  variable  R. 

Relative  humidity  in  per  cent.  Input  on  data  card  in  subroutines 
DATAID  and  HDATA. 

Avionics  Lab  or  aircraft  latitude  in  radians.  Used  in  subroutines 
DATAID  and  HDATA. 


! 

i 


SDBIT 


Synchro  to  digital  (S/D)  converter  scale  factor.  Equal  to 


.00549325  degrees  per  bit.  Used  in  subroutine  STATE. 

Seconds  term  of  time-of-day.  Used  in  task  WRITER. 

Sine  of  Avionics  Lab  or  aircraft  latitude.  Computed  in  sub- 
routines INITAL,  HINIT,  ANTENA,  HANTEN,  and  PANTEN. 

Same  as  SLAT,  except  for  longitude. 

"Switch"  used  to  flag  a return  from  subroutine  PNT.  When  SW=2, 
both  azimuth  and  elevation  calculations  have  been  completed,  and 
PNT  will  execute  a RETURN. 

11/45  computer  time,  in  seconds  after  midnight , GMT.  Input  in 
task  RAPP  to  determine  whether  A.M.  or  P.M.  ephemeris  data  buffer 
is  to  be  loaded  first. 

Air  temperature  in  degrees  Celcius.  Calculated  from  Fahrenheit 
temperature  in  subroutines  DATAID  and  HDATA. 


TESTl 


V'l'ith  a value  of  270  degrees,  TESTl  represents  the  lower  limit 


of  the  forbidden  antenna  azimuth  zone,  when  pointing  is  from 
the  Avionics  Lab.  Used  in  subroutines  ANTENA  and  PANTEN. 


TEST2 


At  302  degrees,  TEST2  represents  the  upper  limit  of  the  forbidden 


antenna  azimuth  zone,  when  pointing  from  the  Avionics  Lab.  Used 
in  subroutines  ANTENA  and  PANTEN. 


TEST3 


At  288  degrees,  TEST3  represents  the  approximate  center  of  the 


forbidden  antenna  azimuth  zone,  when  pointing  from  the  Avionics 
Lab.  Used  in  subroutines  ANTENNA  and  PANTEN. 


11/45  computer  time,  in  seconds  after  midnight,  GMT.  Used  in 
subroutine  CTIME. 


TETIM 


Tlme-of-day  in  seconds  after  midnight.  Input  from  WWVB  in  sub- 
routine TOD  for  task  RAPP,  or  else  computed  in  tasks  ALASKA  and 
HAWAII . 


TETI3  Scaled  tlme-of-day,  as  used  with  the  ninth  order 

polynomials  for  look-angle  calculation.  Computed 
in  subroutines  CTIME  and  HTIME. 

TF  Final  time  in  seconds,  of  the  A.M.  or  P.M.  (GMT) 

time  period.  Equals  43200  in  A.M.  (corresponds  to 
12002).  equals  86400  in  P.M.  (corresponds  to  24002). 
Calculated  in  subroutines  CTIME  and  HTIME,  and  used 
in  subroutine  DATAID. 

TFAR  Air  temperature  in  degrees  Fahrenheit.  Input  on 

data  cards  by  subroutines  DATAID  and  HDATA. 

TI  Initial  time  in  seconds,  of  the  A.M.  or  P.M.  (GMT) 

time  period.  Equals  0 in  A.M.  (corresponds  to  00002), 
equals  43200  in  P.M.  (corresponds  to  12002).  Calcu- 
lated in  subroutines  CTIME  and  HTIME,  and  used  in 
subroutine  DATAID. 

TK  Air  temperature  in  degrees  Kelvin.  Calculated  from 

Fahrenheit  temperature  in  subroutines  DATAID  and 
HDATA. 

TMID  Mid-time  in  seconds,  of  the  A.M.  or  P.M.  (GMT)  time 

period.  Equals  2160  in  A.M.  (corresponds  to  06002) , 
equals  64800  in  P.M.  (corresponds  to  18002).  Calcu- 
lated in  subroutines  CTIME  and  HTIME,  and  used  in 
subroutine  DATAID. 

TWV  Constant  used  in  refractivity  calculation.  Used  in 

subroutines  DATAID  and  HDATA. 
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WORD 


Two-word  location  used  in  assembler  language 


subroutine  TOD.  Used  as  a buffer  for  the  two-word 
time-of-day  input  from  the  WWVB  interface. 

X,  Y,  Z Temporary  value  of  XCA,  YCA,  or  ZCA  respectively. 

Used  in  subroutines  DATAID  and  HDATA,  and  task  DATA. 
Effects  the  placing  of  the  A.M.  and  P.M.  buffers  in 
the  correct  memory  locations.  Z is  also  used  in 
subroutine  ABOUT  as  an  intermediate  calculation  of 
the  slant  range  to  the  satellite. 

XAL,  YAL,  ZAL  X,  Y,  or  Z component  respectively  of  the  Avionics 

Lab  or  aircraft  position  in  geocentric  coordinates. 
Computed  in  subroutines  INITAL  and  HINIT. 

XC(N),  YC(N),  ZC(N)  Nth  element  of  the  X,  Y,  or  Z axis  satellite  position 

polynomial.  Input  from  the  appropriate  A.M.  or  P.M. 
ephemerls  buffer  via  subroutines  CTIME  and  HTIME. 

XCA(N),  YCA(N),  ZCA(N)  Nth  element  of  the  A.M.  X,  Y,  or  Z axis  satellite 

position  polynomial.  Transferred  from  XC(N),  YC(N) 
or  ZC(N)  respectively  in  subroutines  DATAID  and  HDATA. 

XCB(N),  YCB(N),  ZCB(N)  Nth  element  of  the  P.M.  X,  Y,  or  Z axis  satellite 

position  polynomial.  Transferred  from  XC(N) , YC(N) , 
or  ZC(N)  respectively  in  subroutines  DATAID  and  HDATA. 

XSAT,  YSAT,  ZSAT  X,  Y,  or  Z component  respectively  of  the  satellite 

position  in  geocentric  coordinates.  Used  in  subroutines 
ANTENA,  HANTEN,  and  PANTEN. 

XSATC,  YSATC,  ZSATC  X,  Y,  or  Z term  respectively  of  a correction  applied 

to  each  component  of  the  satellite  position.  Currently 
equals  zero  in  subroutines  where  it  is  used  - ANTENA, 

HANTEN,  and  PANTEN. 
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XX,  YY,  ZZ  X,  Y,  or  Z component  respectively  of  the  vector  from  the 
AYionlcs  Lab  or  aircraft  to  the  satellite,  in  geocentric 
coordinates.  Used  in  subroutines  ANTENA,  HANTEN,  and  PANTEN. 

XXA,  YYA,  ZZA  XX,  YY,  or  ZZ  respectively  in  geodetic  coordinates.  Used  in 
subroutines  ANTENA,  HANTEN,  and  PANTEN.  ZZA  is  also  used 
later  in  the  same  subroutines  to  determine  the  sign  on  the 


elevation  reference  calculation 
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